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

Changed #:macro to #:expression in define-match-expander.

Browse Source 
svn: r3945
This commit is contained in:
Sam Tobin-Hochstadt 2006-08-03 20:18:22 +00:00
parent 24880e18a4
commit 0cf62c196a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/private/match/match-expander.ss
View File

@ -25,7 +25,7 @@
(cond (cond
[(not (keyword? v)) [(not (keyword? v))
(match:syntax-err stx-v "Argument must be a keyword")] (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")] (match:syntax-err stx-v "Keyword argument is not a correct keyword")]
[else [else
(loop (cddr args) (loop (cddr args)
@ -39,7 +39,7 @@
(with-syntax (with-syntax
([match-xform (lookup #:match parsed-args)] ([match-xform (lookup #:match parsed-args)]
[plt-match-xform (lookup #:plt-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) #'(lambda (stx)
(match:syntax-err stx "This match expander must be used inside match")))]) (match:syntax-err stx "This match expander must be used inside match")))])
(if (identifier? #'std-xform) (if (identifier? #'std-xform)