From a284cc7ed84d34b01525e3d6ae2bc9c6e2335455 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 16 Sep 2008 12:12:38 +0200 Subject: [PATCH] Use immutable double-cells for symbols. * libguile/strings.c (scm_i_make_symbol): Use `scm_immutable_double_cell ()'. --- libguile/strings.c | 4 ++-- 1 file 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