fix phase of no-old-match-form

svn: r8972
This commit is contained in:
Matthew Flatt 2008-03-14 16:57:06 +00:00
parent b1009e7e5a
commit ae75de476f

View File

@ -6,7 +6,7 @@
define-match-expander)
(rename-out [define-match-expander* define-match-expander]))
(define-syntax (no-old-match-form stx)
(define-for-syntax (no-old-match-form stx)
(raise-syntax-error
#f
"works only for constructor-based `match' form"