summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
authorKeisuke Nishida <kxn30@po.cwru.edu>2001-03-11 09:44:08 +0000
committerKeisuke Nishida <kxn30@po.cwru.edu>2001-03-11 09:44:08 +0000
commite0c08f17b19a4379f9ef4d2188ecaf6154e12759 (patch)
tree61a3323287987b19196426bfdce93e356eba7642 /libguile/error.c
parente6e2e95aa53f876e25bee2b0f867350c4a2ddf7a (diff)
downloadguile-e0c08f17b19a4379f9ef4d2188ecaf6154e12759.tar.gz
Use SCM_LISTn instead of scm_listify.
Diffstat (limited to 'libguile/error.c')
-rw-r--r--libguile/error.c9
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: */