mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +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

1
libguile/eval.c
View file

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