From 2d50ddb71cede71a3c58a5b36e5e4364739bec69 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Feb 2004 20:08:36 +0000 Subject: [PATCH] . original commit: 4f140a2885217109211ac3e4cb81feeec81ac4ca --- collects/mzlib/string.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss index e543b79..697d627 100644 --- a/collects/mzlib/string.ss +++ b/collects/mzlib/string.ss @@ -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])