summaryrefslogtreecommitdiff
path: root/libguile/strings.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-05-26 17:03:23 +0200
committerAndy Wingo <wingo@pobox.com>2011-05-26 17:03:23 +0200
commitebc16e6a762748fc5939903a8b3a367d422f1371 (patch)
tree4941c8dc8a835ceeb7e05c5f981e82c8c8b4d2aa /libguile/strings.c
parenta099c8d971c1d5b32e00f25469b36ce45fd4d8c7 (diff)
parenta8952d1fb73218ad2389bb290ebbb737d4f88fce (diff)
downloadguile-ebc16e6a762748fc5939903a8b3a367d422f1371.tar.gz
Merge remote-tracking branch 'local-2.0/stable-2.0'
Diffstat (limited to 'libguile/strings.c')
-rw-r--r--libguile/strings.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/strings.c b/libguile/strings.c
index 8e7ad8d82..e54c27d32 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -741,8 +741,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_immutable_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf),
- (scm_t_bits) hash, SCM_UNPACK (props));
+ return scm_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf),
+ (scm_t_bits) hash, SCM_UNPACK (props));
}
/* Returns the number of characters in SYM. This may be different