diff options
| author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-08 17:08:34 +0000 |
|---|---|---|
| committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-12-08 17:08:34 +0000 |
| commit | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (patch) | |
| tree | dc568f0be7bea98151cba817ca7b65cf8ad31eb0 /libguile/struct.c | |
| parent | 23ade5e759a010813491085ee63e0f9219715ba8 (diff) | |
| download | guile-38ae064c6e462bafc7e188b4586fb3e6eedec876.tar.gz | |
* Use scm_mem2symbol or scm_str2symbol to create symbol objects.
Diffstat (limited to 'libguile/struct.c')
| -rw-r--r-- | libguile/struct.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index 56de9c5c0..5c533f172 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -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); } |