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

no need for special regexp-quote

Browse Source 
svn: r4934
This commit is contained in:
Eli Barzilay 2006-11-23 10:08:23 +00:00
parent 6fbc2dc27f
commit 698a9fec23
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/swindle/misc.ss
View File

@ -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)