summaryrefslogtreecommitdiff
path: root/libguile/hooks.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-30 10:46:35 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-30 10:46:35 +0000
commit685c0d7116658bcefa6404224832480e1e6cba92 (patch)
treeaa7411765a18a49daa8cfc0469cc2809d8532022 /libguile/hooks.c
parentfdf25853e190c086e75fce727c657e27e224eb42 (diff)
downloadguile-685c0d7116658bcefa6404224832480e1e6cba92.tar.gz
* Eliminated use of SCM_ASSERT to check for range errors.
* Fix some error reporting code in list.c * Added some test cases.
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);
}