From ae75de476f519bba2be8f8df7fc699ed5bed932f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 14 Mar 2008 16:57:06 +0000
Subject: [PATCH] fix phase of no-old-match-form

svn: r8972
---
 collects/scheme/match.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/match.ss b/collects/scheme/match.ss
index e511d3454b..7d7f8f02a3 100644
--- a/collects/scheme/match.ss
+++ b/collects/scheme/match.ss
@@ -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"