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

* Use scm_mem2symbol or scm_str2symbol to create symbol objects.

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-08 17:08:34 +00:00
parent 23ade5e759
commit 38ae064c6e
14 changed files with 127 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/struct.c
View file

@ -138,7 +138,7 @@ SCM_DEFINE (scm_make_struct_layout, "make-struct-layout", 1, 0, 0,
}
#endif
}
new_sym = SCM_CAR (scm_intern_obarray (field_desc, len, SCM_BOOL_F));
new_sym = scm_mem2symbol (field_desc, len);
}
return scm_return_first (new_sym, fields);
}