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

PR 6393

Browse Source 
svn: r8391
This commit is contained in:
Eli Barzilay 2008-01-23 14:58:38 +00:00
parent 18a3e03e9b
commit b3007d9088
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/mzlib/string.ss
View File

@ -22,13 +22,15 @@
glob->regexp)
(define ((make-string-do! translate) s)
(let loop ([n (sub1 (string-length s))])
(unless (negative? n)
(string-set! s n (translate (string-ref s n)))
(loop (sub1 n)))))
(define string-lowercase! (make-string-do! char-downcase))
(define string-uppercase! (make-string-do! char-upcase))
(define ((make-string-do! translate who) s)
(if (and (string? s) (not (immutable? s)))
(let loop ([n (sub1 (string-length s))])
(unless (negative? n)
(string-set! s n (translate (string-ref s n)))
(loop (sub1 n))))
(raise-type-error who "mutable string" s)))
(define string-lowercase! (make-string-do! char-downcase 'string-lowercase!))
(define string-uppercase! (make-string-do! char-upcase 'string-uppercase!))
;; helpers for eval-string and read-from-string-one-or-all
(define-syntax wrap-errors