diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 13:55:15 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-09-22 13:55:15 +0000 |
commit | ec82b7c251e0d6e3dfa199d74ffa814906b3c4b5 (patch) | |
tree | cd2a58f7eb345f9079f7c99d2a28b66e5b1990b4 | |
parent | ed35de727aeaa9f376b51439041151fb8cd899a5 (diff) | |
download | guile-ec82b7c251e0d6e3dfa199d74ffa814906b3c4b5.tar.gz |
(scm_lreadr): use scm_c_substring_read_only for string
literals, thus making them read-only as specified by R5RS.
-rw-r--r-- | libguile/read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/read.c b/libguile/read.c index 0e5aee3aa..fa3f958bf 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -599,7 +599,7 @@ scm_lreadr (SCM *tok_buf, SCM port, SCM *copy) } if (j == 0) return scm_nullstr; - return scm_c_substring_copy (*tok_buf, 0, j); + return scm_c_substring_read_only (*tok_buf, 0, j); case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': |