mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(string-set!): Explicitely construct read-only string. String

Browse source 
literals are not yet read-only.
This commit is contained in:
Marius Vollmer 2004-09-30 11:58:26 +00:00
parent 6a1d27ea08
commit b144a33c42
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/strings.test
View file

@ -75,9 +75,9 @@
(with-test-prefix "string-set!"
(pass-if-exception "string constant"
(pass-if-exception "read-only string"
exception:read-only-string
(string-set! "abc" 1 #\space)))
(string-set! (substring/read-only "abc" 0) 1 #\space)))
(with-test-prefix "substring-move!"