[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile eval.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile eval.c |
Date: |
Wed, 21 Feb 2001 14:52:59 -0800 |
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;