.
original commit: 4f140a2885217109211ac3e4cb81feeec81ac4ca
This commit is contained in:
parent
9660f03d97
commit
2d50ddb71c
|
@ -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])
|
||||
|
|
Loading…
Reference in New Issue
Block a user