suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix mat of substring-fill!

Browse Source 
after the recent change, the result of substring-fill! is void
  5_5.ms

original commit: a2cd9856be74008cc23b6ca3476339e79a1cd5ff
This commit is contained in:
Gustavo Massaccesi 2017-12-15 14:44:12 -03:00
parent f1b9fc95da
commit dc0be2bfbe
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
LOG
View File

@ -763,4 +763,6 @@
to use define-who instead of repeating 'substring-fill! in all the error to use define-who instead of repeating 'substring-fill! in all the error
messages. messages.
5_4.ss, 5_6.ss 5_4.ss, 5_6.ss
- fix mat of substring-fill!
after the recent change, the result of substring-fill! is void
5_5.ms

8
mats/5_5.ms
View File

@ -699,8 +699,12 @@
(error? (substring-fill! 'a 0 1 #\a)) (error? (substring-fill! 'a 0 1 #\a))
(error? (substring-fill! "hi" 0 'a #\a)) (error? (substring-fill! "hi" 0 'a #\a))
(error? (substring-fill! "hi" 1 0 #\a)) (error? (substring-fill! "hi" 1 0 #\a))
(equal? (substring-fill! "hitme!" 0 5 #\a) "aaaaa!") (let ([s (string-copy "hitme!")])
(eqv? (substring-fill! "" 0 0 #\a) "") (substring-fill! s 0 5 #\a)
(equal? s "aaaaa!"))
(let ([s ""])
(substring-fill! s 0 0 #\a)
(eqv? s ""))
(let ([s (string-copy "ABCDE")]) (let ([s (string-copy "ABCDE")])
(and (begin (and (begin
(substring-fill! s 0 0 #\$) (substring-fill! s 0 0 #\$)