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:
parent
ed35de727a
commit
ec82b7c251
1 changed files with 1 additions and 1 deletions
|
@ -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':
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue