summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-09-22 13:55:15 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-09-22 13:55:15 +0000
commitec82b7c251e0d6e3dfa199d74ffa814906b3c4b5 (patch)
treecd2a58f7eb345f9079f7c99d2a28b66e5b1990b4
parented35de727aeaa9f376b51439041151fb8cd899a5 (diff)
downloadguile-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.c2
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':