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/struct.c | |
parent | e6e2e95aa53f876e25bee2b0f867350c4a2ddf7a (diff) | |
download | guile-e0c08f17b19a4379f9ef4d2188ecaf6154e12759.tar.gz |
Use SCM_LISTn instead of scm_listify.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index 3c15deb53..b57d1996f 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -534,9 +534,7 @@ SCM_DEFINE (scm_make_vtable_vtable, "make-vtable-vtable", 2, 0, 1, SCM_VALIDATE_INUM (2, tail_array_size); SCM_VALIDATE_REST_ARGUMENT (init); - fields = scm_string_append (scm_listify (required_vtable_fields, - user_fields, - SCM_UNDEFINED)); + fields = scm_string_append (SCM_LIST2 (required_vtable_fields, user_fields)); layout = scm_make_struct_layout (fields); basic_size = SCM_SYMBOL_LENGTH (layout) / 2; tail_elts = SCM_INUM (tail_array_size); |