diff options
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r-- | libguile/hooks.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/hooks.c b/libguile/hooks.c index 862b55a96..712debd87 100644 --- a/libguile/hooks.c +++ b/libguile/hooks.c @@ -164,7 +164,8 @@ make_hook (SCM n_args, const char *subr) { SCM_ASSERT (SCM_INUMP (n_args), n_args, SCM_ARGn, subr); n = SCM_INUM (n_args); - SCM_ASSERT (n >= 0 && n <= 16, n_args, SCM_OUTOFRANGE, subr); + if (n < 0 || n > 16) + scm_out_of_range (subr, n_args); } SCM_RETURN_NEWSMOB (scm_tc16_hook + (n << 16), SCM_EOL); } |