guile/guile-core/libguile eval.c

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/02/21 14:52:59

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

Log message:
        Only check number of arguments for closures, see last change.
        I just love this evaluator, man.

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

Patches:
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.199 
guile/guile-core/libguile/eval.c:1.200
--- guile/guile-core/libguile/eval.c:1.199      Wed Feb 21 12:14:47 2001
+++ guile/guile-core/libguile/eval.c    Wed Feb 21 14:52:59 2001
@@ -2005,7 +2005,7 @@
              SCM_ASRTGO (SCM_NIMP (proc), badfun);
              PREP_APPLY (proc, scm_cons (t.arg1, SCM_EOL));
              ENTER_APPLY;
-             if (scm_badformalsp (proc, 1))
+             if (SCM_CLOSUREP(proc) && scm_badformalsp (proc, 1))
                goto umwrongnumargs;
              goto evap1;
            }
@@ -2217,7 +2217,7 @@
          SCM_ASRTGO (SCM_NIMP (proc), badfun);
          PREP_APPLY (proc, scm_cons (t.arg1, SCM_EOL));
          ENTER_APPLY;
-         if (scm_badformalsp (proc, 1))
+         if (SCM_CLOSUREP(proc) && scm_badformalsp (proc, 1))
            goto umwrongnumargs;
          goto evap1;