diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-11 09:44:08 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2001-03-11 09:44:08 +0000 |
commit | e0c08f17b19a4379f9ef4d2188ecaf6154e12759 (patch) | |
tree | 61a3323287987b19196426bfdce93e356eba7642 /libguile/error.c | |
parent | e6e2e95aa53f876e25bee2b0f867350c4a2ddf7a (diff) | |
download | guile-e0c08f17b19a4379f9ef4d2188ecaf6154e12759.tar.gz |
Use SCM_LISTn instead of scm_listify.
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: */ |