summaryrefslogtreecommitdiff
path: root/libguile/feature.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-12-22 11:01:44 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-12-22 11:01:44 +0000
commit1834aa1ba22e15c7d20fd88b90e2c466d365b3e3 (patch)
treed29e603b24d23208f9cc7cf70928e211a76ad873 /libguile/feature.c
parent15b08ebd0d432b1e2dbee186db726e1faeaa25ad (diff)
downloadguile-1834aa1ba22e15c7d20fd88b90e2c466d365b3e3.tar.gz
* feature.c (s_scm_add_hook_x): Call scm_wrong_type_arg instead of
scm_misc_error when add-hook! is passed a procedure of wring arity. (Thanks to Greg Harvey.)
Diffstat (limited to 'libguile/feature.c')
-rw-r--r--libguile/feature.c4
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/feature.c b/libguile/feature.c
index f8bc1f834..6e20bd93d 100644
--- a/libguile/feature.c
+++ b/libguile/feature.c
@@ -235,9 +235,7 @@ GUILE_PROC (scm_add_hook_x, "add-hook!", 2, 1, 0,
|| (SCM_FALSEP (SCM_CADDR (arity))
&& (SCM_INUM (SCM_CAR (arity)) + SCM_INUM (SCM_CADR (arity))
< n_args)))
- scm_misc_error (FUNC_NAME,
- "This hook requires %s arguments",
- SCM_LIST1 (SCM_MAKINUM (SCM_HOOK_ARITY (hook))));
+ scm_wrong_type_arg (FUNC_NAME, 2, proc);
rest = scm_delq_x (proc, SCM_HOOK_PROCEDURES (hook));
SCM_SET_HOOK_PROCEDURES (hook,
(!SCM_UNBNDP (append_p) && SCM_NFALSEP (append_p)