diff options
author | Ludovic Courtès <ludo@gnu.org> | 2008-09-22 22:51:36 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2008-09-23 18:44:27 +0200 |
commit | fd2b17b9cb7aaa6b550ad9b6a3efe3c53c94ccce (patch) | |
tree | 02aa2b139dcf907ded34e5e03477f5dcaedf806c /libguile/strings.c | |
parent | 1dd797921c950f0a4d396faa6d7326ec6928e771 (diff) | |
download | guile-fd2b17b9cb7aaa6b550ad9b6a3efe3c53c94ccce.tar.gz |
Make `symbol->string' return a read-only string.
* libguile/strings.c (scm_i_symbol_substring): Return a read-only string
since R5RS requires `symbol->string' to return a read-only string.
Reported by Bill Schottstaedt <bil@ccrma.Stanford.EDU>.
* test-suite/tests/symbols.test: Add `define-module' clause.
(exception:immutable-string): Adjust to current exception.
("symbol->string")["result is an immutable string"]: Use
`pass-if-exception' instead of `expect-fail-exception'.
* NEWS: Update.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index 4d387fb51..7399d8831 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -491,7 +491,7 @@ scm_i_symbol_substring (SCM sym, size_t start, size_t end) scm_i_pthread_mutex_lock (&stringbuf_write_mutex); SET_STRINGBUF_SHARED (buf); scm_i_pthread_mutex_unlock (&stringbuf_write_mutex); - return scm_double_cell (STRING_TAG, SCM_UNPACK(buf), + return scm_double_cell (RO_STRING_TAG, SCM_UNPACK (buf), (scm_t_bits)start, (scm_t_bits) end - start); } |