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
[(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)