From ec82b7c251e0d6e3dfa199d74ffa814906b3c4b5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Wed, 22 Sep 2004 13:55:15 +0000 Subject: [PATCH] (scm_lreadr): use scm_c_substring_read_only for string literals, thus making them read-only as specified by R5RS. --- libguile/read.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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':