guile/guile-core/libguile eval.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/03/29 14:38:00

Modified files:
        guile-core/libguile: eval.c 

Log message:
        * eval.c (SCM_APPLY): Check that arg1 is bound for scm_tc7_cxr.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/eval.c.diff?r1=1.212&r2=1.213

Patches:
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.212 
guile/guile-core/libguile/eval.c:1.213
--- guile/guile-core/libguile/eval.c:1.212      Mon Mar 26 14:39:35 2001
+++ guile/guile-core/libguile/eval.c    Thu Mar 29 14:38:00 2001
@@ -3399,7 +3399,7 @@
       SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
       RETURN (SCM_SUBRF (proc) (arg1))
     case scm_tc7_cxr:
-      SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
+      SCM_ASRTGO (!SCM_UNBNDP (arg1) && SCM_NULLP (args), wrongnumargs);
       if (SCM_SUBRF (proc))
        {
          if (SCM_INUMP (arg1))