From 698a9fec234025e305d018d61fa1de6ba98139d8 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 23 Nov 2006 10:08:23 +0000 Subject: [PATCH] no need for special regexp-quote svn: r4934 --- collects/swindle/misc.ss | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/collects/swindle/misc.ss b/collects/swindle/misc.ss index 892ca6da46..8adf105bbf 100644 --- a/collects/swindle/misc.ss +++ b/collects/swindle/misc.ss @@ -9,7 +9,7 @@ (provide (all-from (lib "list.ss"))) (require (lib "etc.ss")) (provide (all-from (lib "etc.ss"))) -(require (all-except (lib "string.ss") regexp-quote)) +(require (all-except (lib "string.ss"))) (provide (all-from (lib "string.ss"))) ;; ---------------------------------------------------------------------------- @@ -591,12 +591,6 @@ (and (apply pred? (car l) (map car rest)) (mapf (cdr l) (map cdr rest)))))])) -;;>> (regexp-quote string) -;;> The same as `regexp-quote' from mzlib/string, but faster. -(define* regexp-quote - (let ([re (regexp "[][*?+|().\\$^-]")]) - (lambda (s) (regexp-replace* re s "\\\\&")))) - ;;>> (with-output-to-string thunk) ;;> Run `thunk' collecting generated output into a string. (define* (with-output-to-string thunk)