From 269861c775fce8bb56b146cc0c53e7c16ee933a4 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Fri, 25 Jul 1997 15:04:50 +0000 Subject: [PATCH] * eval.c (scm_apply): Handle the case when a tc7_sybr_2 is applied to a list of length zero correctly. --- libguile/ChangeLog | 5 +++++ libguile/eval.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index fb7251c36..3fe746827 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +Fri Jul 25 17:00:38 1997 Mikael Djurfeldt + + * eval.c (scm_apply): Handle the case when a tc7_sybr_2 is applied + to a list of length zero correctly. + Wed Jul 23 16:17:46 1997 Tim Pierce Supply an `fgets' method for port objects to do fast line i/o. diff --git a/libguile/eval.c b/libguile/eval.c index a132fb1d8..2bb5487df 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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: