From 0cf62c196a25a2d7b1da433b6dfe00b093e08690 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 3 Aug 2006 20:18:22 +0000 Subject: [PATCH] Changed #:macro to #:expression in define-match-expander. svn: r3945 --- collects/mzlib/private/match/match-expander.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/private/match/match-expander.ss b/collects/mzlib/private/match/match-expander.ss index 7c7d0ac9db..a02c41c6cf 100644 --- a/collects/mzlib/private/match/match-expander.ss +++ b/collects/mzlib/private/match/match-expander.ss @@ -25,7 +25,7 @@ (cond [(not (keyword? v)) (match:syntax-err stx-v "Argument must be a keyword")] - [(not (member v '(#:macro #:plt-match #:match))) + [(not (member v '(#:expression #:plt-match #:match))) (match:syntax-err stx-v "Keyword argument is not a correct keyword")] [else (loop (cddr args) @@ -39,7 +39,7 @@ (with-syntax ([match-xform (lookup #:match parsed-args)] [plt-match-xform (lookup #:plt-match parsed-args)] - [std-xform (or (lookup #:macro parsed-args) + [std-xform (or (lookup #:expression parsed-args) #'(lambda (stx) (match:syntax-err stx "This match expander must be used inside match")))]) (if (identifier? #'std-xform)