mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

Only check number of arguments for closures, see last change.

Browse source 
I just love this evaluator, man.
This commit is contained in:
Marius Vollmer 2001-02-21 22:52:59 +00:00
parent afdd97aed1
commit a820af98a7
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/eval.c
View file

@ -2005,7 +2005,7 @@ dispatch:
SCM_ASRTGO (SCM_NIMP (proc), badfun); SCM_ASRTGO (SCM_NIMP (proc), badfun);
PREP_APPLY (proc, scm_cons (t.arg1, SCM_EOL)); PREP_APPLY (proc, scm_cons (t.arg1, SCM_EOL));
ENTER_APPLY; ENTER_APPLY;
if (scm_badformalsp (proc, 1)) if (SCM_CLOSUREP(proc) && scm_badformalsp (proc, 1))
goto umwrongnumargs; goto umwrongnumargs;
goto evap1; goto evap1;
} }
@ -2217,7 +2217,7 @@ dispatch:
SCM_ASRTGO (SCM_NIMP (proc), badfun); SCM_ASRTGO (SCM_NIMP (proc), badfun);
PREP_APPLY (proc, scm_cons (t.arg1, SCM_EOL)); PREP_APPLY (proc, scm_cons (t.arg1, SCM_EOL));
ENTER_APPLY; ENTER_APPLY;
if (scm_badformalsp (proc, 1)) if (SCM_CLOSUREP(proc) && scm_badformalsp (proc, 1))
goto umwrongnumargs; goto umwrongnumargs;
goto evap1; goto evap1;