mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Use immutable double-cells for symbols.

Browse source 
* libguile/strings.c (scm_i_make_symbol): Use `scm_immutable_double_cell ()'.
This commit is contained in:
Ludovic Courtès 2008-09-16 12:12:38 +02:00
parent 737219ddbb
commit a284cc7ed8
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/strings.c
View file

@ -407,8 +407,8 @@ scm_i_c_make_symbol (const char *name, size_t len,
SCM buf = make_stringbuf (len); SCM buf = make_stringbuf (len);
memcpy (STRINGBUF_CHARS (buf), name, len); memcpy (STRINGBUF_CHARS (buf), name, len);
return scm_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf), return scm_immutable_double_cell (scm_tc7_symbol | flags, SCM_UNPACK (buf),
(scm_t_bits) hash, SCM_UNPACK (props)); (scm_t_bits) hash, SCM_UNPACK (props));
} }
/* Return a new symbol that uses the LEN bytes pointed to by NAME as its /* Return a new symbol that uses the LEN bytes pointed to by NAME as its