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

fix phase of no-old-match-form

Browse Source 
svn: r8972
This commit is contained in:
Matthew Flatt 2008-03-14 16:57:06 +00:00
parent b1009e7e5a
commit ae75de476f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/match.ss
View File

@ -6,7 +6,7 @@
define-match-expander) define-match-expander)
(rename-out [define-match-expander* 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 (raise-syntax-error
#f #f
"works only for constructor-based `match' form" "works only for constructor-based `match' form"