original commit: 4f140a2885217109211ac3e4cb81feeec81ac4ca
This commit is contained in:
Matthew Flatt 2004-02-27 20:08:36 +00:00
parent 9660f03d97
commit 2d50ddb71c

View File

@ -151,8 +151,8 @@
(bytes? s))
(raise-type-error 'regexp-replace-quote "string or byte string" 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
(opt-lambda (pattern input-port [start-k 0] [end-k #f] [out #f])