summaryrefslogtreecommitdiff
path: root/libguile
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2008-09-16 12:12:38 +0200
committerLudovic Courtès <ludo@gnu.org>2008-09-16 12:12:38 +0200
commita284cc7ed84d34b01525e3d6ae2bc9c6e2335455 (patch)
tree76ad26a60e2d062c200e8be82adda7c71f5bdab5 /libguile
parent737219ddbb026289521df207710f0d5310d0f4d1 (diff)
downloadguile-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.c4
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