summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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':