diff options
-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': |