mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

Use SCM_LISTn instead of scm_listify.

Browse source
This commit is contained in:
Keisuke Nishida 2001-03-11 09:44:08 +00:00
parent e6e2e95aa5
commit e0c08f17b1
13 changed files with 38 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/struct.c
View file

@ -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);