From 6faccdbc68aba78c983b685ecd34df373ec71f2a Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 17 May 2008 15:34:21 +0000 Subject: [PATCH] hack regexp-case to work with scheme/base svn: r9877 --- collects/swindle/misc.ss | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/collects/swindle/misc.ss b/collects/swindle/misc.ss index d3d0708c2e..4aec1fbe60 100644 --- a/collects/swindle/misc.ss +++ b/collects/swindle/misc.ss @@ -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)