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

hack regexp-case to work with scheme/base

Browse Source 
svn: r9877
This commit is contained in:
Eli Barzilay 2008-05-17 15:34:21 +00:00
parent 6f6d8d74b4
commit 6faccdbc68
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/swindle/misc.ss
View File

@ -9,6 +9,9 @@
(require mzlib/etc) (provide (all-from mzlib/etc))
(require mzlib/string) (provide (all-from mzlib/string))
;; these are needed to make regexp-case work in scheme/base too
(require (rename scheme/base base-else else) (rename scheme/base base-=> =>))
;; ----------------------------------------------------------------------------
;;>>... Convenient syntax definitions
@ -1883,9 +1886,11 @@
;;> previous cases failed.
(defsyntax* (regexp-case stx)
(define (do-clause c)
(syntax-case c (else =>)
(syntax-case c (else base-else => base-=>)
[(else body ...) c]
[(base-else body ...) #'(else body ...)]
[(re => func) #'((regexp-match re s) => (lambda (r) (apply func r)))]
[(re base-=> func) #'((regexp-match re s) => (lambda (r) (apply func r)))]
[((re . args) body ...)
#`((regexp-match re s) =>
(lambda (r)