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/environments.c | |
parent | e6e2e95aa53f876e25bee2b0f867350c4a2ddf7a (diff) | |
download | guile-e0c08f17b19a4379f9ef4d2188ecaf6154e12759.tar.gz |
Use SCM_LISTn instead of scm_listify.
Diffstat (limited to 'libguile/environments.c')
-rw-r--r-- | libguile/environments.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/environments.c b/libguile/environments.c index 500943327..aa14c3e0f 100644 --- a/libguile/environments.c +++ b/libguile/environments.c @@ -816,7 +816,7 @@ update_catch_handler (void *ptr, SCM tag, SCM args) SCM observer = data->observer; SCM message = scm_makfrom0str ("Observer `~A' signals `~A' error: ~S"); - return scm_cons (message, scm_listify (observer, tag, args, SCM_UNDEFINED)); + return scm_cons (message, SCM_LIST3 (observer, tag, args)); } |