mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +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

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
Fri Jul 25 17:00:38 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* 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 <twpierce@bio-5.bsd.uchicago.edu>
Supply an `fgets' method for port objects to do fast line i/o.

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: