1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00

(scm_lreadr): use scm_c_substring_read_only for string

literals, thus making them read-only as specified by R5RS.
This commit is contained in:
Marius Vollmer 2004-09-22 13:55:15 +00:00
parent ed35de727a
commit ec82b7c251

View file

@ -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':