summaryrefslogtreecommitdiff
path: root/libguile/feature.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-11 23:56:47 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-11 23:56:47 +0000
commit5d2d2ffca7d7e160dc7e99cab690cf512fbcfb86 (patch)
tree72e53fcebe77e9073511921aea4599c02ef1b822 /libguile/feature.c
parent88423ab1abc7e901be9cf80989fa0bec9659dbc6 (diff)
downloadguile-5d2d2ffca7d7e160dc7e99cab690cf512fbcfb86.tar.gz
* dynl.c, feature.c, filesys.c, fports.c, list.c, load.c,
net_db.c, sort.c, stacks.c, unif.c: Use SCM_WTA, SCM_MISC_ERROR where possible. * symbols.c (scm_sysintern0): Fixed the function name in a scm_misc_error invocation. * print.c (scm_simple_format): Do not need SCM_COERCE_SUBSTR, and use scm_return_first to ward off latent GC bug that Mikael caught. * async.c: Use SCM_VALIDATE_ASYNC_COPY one place where it wasn't used before but should've been.
Diffstat (limited to 'libguile/feature.c')
-rw-r--r--libguile/feature.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/feature.c b/libguile/feature.c
index c44abce8b..b1068aadd 100644
--- a/libguile/feature.c
+++ b/libguile/feature.c
@@ -280,8 +280,7 @@ SCM_DEFINE (scm_run_hook, "run-hook", 1, 0, 1,
if (SCM_UNBNDP (args))
args = SCM_EOL;
if (scm_ilength (args) != SCM_HOOK_ARITY (hook))
- scm_misc_error (FUNC_NAME,
- "Hook ~S requires ~A arguments",
+ SCM_MISC_ERROR ("Hook ~S requires ~A arguments",
SCM_LIST2 (hook,SCM_MAKINUM (SCM_HOOK_ARITY (hook))));
scm_c_run_hook (hook, args);
return SCM_UNSPECIFIED;