diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-30 10:46:35 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-30 10:46:35 +0000 |
commit | 685c0d7116658bcefa6404224832480e1e6cba92 (patch) | |
tree | aa7411765a18a49daa8cfc0469cc2809d8532022 /libguile/hooks.c | |
parent | fdf25853e190c086e75fce727c657e27e224eb42 (diff) | |
download | guile-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.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); } |