diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-26 12:34:30 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-26 12:34:30 +0200 |
commit | 65619ebe9a9af71f6dd17736f5556e53db485f1c (patch) | |
tree | 7a2e1a428ceb457ee06a63dbf7e2bb1eeac97001 /libguile/strings.c | |
parent | f567a43cf0336151fac1a51c6553431420f21397 (diff) | |
download | guile-65619ebe9a9af71f6dd17736f5556e53db485f1c.tar.gz |
deprecate scm_immutable_{double_,}cell
* libguile/inline.h:
* libguile/deprecated.h:
* libguile/deprecated.c (scm_immutable_cell, scm_immutable_double_cell):
Deprecate these, as the GC_STUBBORN API doesn't do anything any more.
* libguile/strings.c (scm_i_c_make_symbol): Change the one use of
scm_immutable_double_cell to scm_double_cell.
Diffstat (limited to 'libguile/strings.c')
-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 bf637041c..0d379ff68 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 |