diff options
Diffstat (limited to 'libguile/error.c')
-rw-r--r-- | libguile/error.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/libguile/error.c b/libguile/error.c index ee8ef2f10..5d441df3f 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -81,11 +81,10 @@ scm_error (SCM key, const char *subr, const char *message, SCM args, SCM rest) message ? message : "<empty message>"); abort (); } - arg_list = scm_listify (subr ? scm_makfrom0str (subr) : SCM_BOOL_F, - message ? scm_makfrom0str (message) : SCM_BOOL_F, - args, - rest, - SCM_UNDEFINED); + arg_list = SCM_LIST4 (subr ? scm_makfrom0str (subr) : SCM_BOOL_F, + message ? scm_makfrom0str (message) : SCM_BOOL_F, + args, + rest); scm_ithrow (key, arg_list, 1); /* No return, but just in case: */ |