diff options
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 62bef0b4b..eaef7570e 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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)) |