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

.

Browse Source 
original commit: 4f140a2885217109211ac3e4cb81feeec81ac4ca
This commit is contained in:
Matthew Flatt 2004-02-27 20:08:36 +00:00
parent 9660f03d97
commit 2d50ddb71c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/string.ss
View File

@ -151,8 +151,8 @@
(bytes? s)) (bytes? s))
(raise-type-error 'regexp-replace-quote "string or byte string" s)) (raise-type-error 'regexp-replace-quote "string or byte string" s))
(if (bytes? s) (if (bytes? s)
(regexp-replace* #rx"&" (regexp-replace* #rx"\\\\" s "\\\\\\\\") "\\\\&") (regexp-replace* #rx#"&" (regexp-replace* #rx#"\\\\" s #"\\\\\\\\") #"\\\\&")
(regexp-replace* #rx#"&" (regexp-replace* #rx#"\\\\" s #"\\\\\\\\") #"\\\\&"))) (regexp-replace* #rx"&" (regexp-replace* #rx"\\\\" s "\\\\\\\\") "\\\\&")))
(define regexp-match/fail-without-reading (define regexp-match/fail-without-reading
(opt-lambda (pattern input-port [start-k 0] [end-k #f] [out #f]) (opt-lambda (pattern input-port [start-k 0] [end-k #f] [out #f])