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

* eval.c (SCM_APPLY): Check that primitives which take 1 arg

Browse source 
really get that arg.
This commit is contained in:
Mikael Djurfeldt 2001-01-29 18:23:34 +00:00
parent d42b03fd66
commit 41ee56dde3
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2001-01-29 Mikael Djurfeldt <mdj@linnaeus.mit.edu>
* eval.c (SCM_APPLY): Check that primitives which take 1 arg
really get that arg.
2001-01-26 Keisuke Nishida <kxn30@po.cwru.edu> 2001-01-26 Keisuke Nishida <kxn30@po.cwru.edu>
* goops.c (s_scm_get_keyword): Bug fix. * goops.c (s_scm_get_keyword): Bug fix.

1
libguile/eval.c
View file

@ -3302,6 +3302,7 @@ tail:
SCM_ASRTGO (SCM_UNBNDP (arg1), wrongnumargs); SCM_ASRTGO (SCM_UNBNDP (arg1), wrongnumargs);
RETURN (SCM_SUBRF (proc) ()) RETURN (SCM_SUBRF (proc) ())
case scm_tc7_subr_1: case scm_tc7_subr_1:
SCM_ASRTGO (!SCM_UNBNDP (arg1), wrongnumargs);
case scm_tc7_subr_1o: case scm_tc7_subr_1o:
SCM_ASRTGO (SCM_NULLP (args), wrongnumargs); SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
RETURN (SCM_SUBRF (proc) (arg1)) RETURN (SCM_SUBRF (proc) (arg1))