summaryrefslogtreecommitdiff
path: root/libguile/hooks.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/hooks.c')
-rw-r--r--libguile/hooks.c3
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);
}