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

* eval.c (scm_apply): Handle the case when a tc7_sybr_2 is applied

Browse source 
to a list of length zero correctly.
This commit is contained in:
Mikael Djurfeldt 1997-07-25 15:04:50 +00:00
parent 64d01d1315
commit 269861c775
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/eval.c
View file

@ -2592,7 +2592,8 @@ tail:
args = SCM_NULLP (args) ? SCM_UNDEFINED : SCM_CAR (args);
RETURN (SCM_SUBRF (proc) (arg1, args))
case scm_tc7_subr_2:
SCM_ASRTGO (SCM_NULLP (SCM_CDR (args)), wrongnumargs);
SCM_ASRTGO (SCM_NNULLP (args) && SCM_NULLP (SCM_CDR (args)),
wrongnumargs);
args = SCM_CAR (args);
RETURN (SCM_SUBRF (proc) (arg1, args))
case scm_tc7_subr_0: