From dc0be2bfbea44ca315ad8b9a2a29fe5a246fd13d Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Fri, 15 Dec 2017 14:44:12 -0300 Subject: [PATCH] fix mat of substring-fill! after the recent change, the result of substring-fill! is void 5_5.ms original commit: a2cd9856be74008cc23b6ca3476339e79a1cd5ff --- LOG | 4 +++- mats/5_5.ms | 8 ++++++-- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/LOG b/LOG index fc9f64c523..28919e742b 100644 --- a/LOG +++ b/LOG @@ -763,4 +763,6 @@ to use define-who instead of repeating 'substring-fill! in all the error messages. 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 diff --git a/mats/5_5.ms b/mats/5_5.ms index 53c367b828..f1a1e5eac9 100644 --- a/mats/5_5.ms +++ b/mats/5_5.ms @@ -699,8 +699,12 @@ (error? (substring-fill! 'a 0 1 #\a)) (error? (substring-fill! "hi" 0 'a #\a)) (error? (substring-fill! "hi" 1 0 #\a)) - (equal? (substring-fill! "hitme!" 0 5 #\a) "aaaaa!") - (eqv? (substring-fill! "" 0 0 #\a) "") + (let ([s (string-copy "hitme!")]) + (substring-fill! s 0 5 #\a) + (equal? s "aaaaa!")) + (let ([s ""]) + (substring-fill! s 0 0 #\a) + (eqv? s "")) (let ([s (string-copy "ABCDE")]) (and (begin (substring-fill! s 0 0 #\$)