diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-09-16 12:12:38 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-16 12:12:38 +0200 |
commit | a284cc7ed84d34b01525e3d6ae2bc9c6e2335455 (patch) | |
tree | 76ad26a60e2d062c200e8be82adda7c71f5bdab5 /libguile | |
parent | 737219ddbb026289521df207710f0d5310d0f4d1 (diff) | |
download | guile-a284cc7ed84d34b01525e3d6ae2bc9c6e2335455.tar.gz |
Use immutable double-cells for symbols.
* libguile/strings.c (scm_i_make_symbol): Use `scm_immutable_double_cell ()'.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/strings.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index bf7266e4e..87ced8f21 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -407,8 +407,8 @@ scm_i_c_make_symbol (const char *name, size_t len, SCM buf = make_stringbuf (len); memcpy (STRINGBUF_CHARS (buf), name, len); - return scm_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf), - (scm_t_bits) hash, SCM_UNPACK (props)); + return scm_immutable_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf), + (scm_t_bits) hash, SCM_UNPACK (props)); } /* Return a new symbol that uses the LEN bytes pointed to by NAME as its |