diff options
Diffstat (limited to 'libguile/gsubr.c')
-rw-r--r-- | libguile/gsubr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/gsubr.c b/libguile/gsubr.c index 5f0a3e981..4dd37a331 100644 --- a/libguile/gsubr.c +++ b/libguile/gsubr.c @@ -130,7 +130,7 @@ scm_gsubr_apply(args) for (i = 0; i < GSUBR_REQ(typ); i++) { #ifndef RECKLESS if (SCM_IMP(args)) - scm_wta(SCM_UNDEFINED, (char *)SCM_WNA, SCM_CHARS(SCM_SNAME(GSUBR_PROC(self)))); + scm_wrong_num_args (SCM_SNAME(GSUBR_PROC(self))); #endif v[i] = SCM_CAR(args); args = SCM_CDR(args); |