From 07cb261b6cde41ecaaa2dd17eb0ad0b90448b238 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 11 Dec 2007 11:28:50 +0000
Subject: [PATCH] avoid requiring mzscheme

svn: r7951

original commit: ddc2ade2714a4924cd60a0895b74062954768a85
---
 collects/tests/mzscheme/kw.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/tests/mzscheme/kw.ss b/collects/tests/mzscheme/kw.ss
index 846d4e1..8057fb5 100644
--- a/collects/tests/mzscheme/kw.ss
+++ b/collects/tests/mzscheme/kw.ss
@@ -4,9 +4,10 @@
 (Section 'kw)
 
 (require (lib "kw.ss")
-         mzscheme)
+         (prefix-in mz: mzscheme))
 
-(let ()
+(let-syntax ([#%datum (syntax-rules () [(_ . xs) (mz:#%datum . xs)])]
+             [#%app   (syntax-rules () [(_ . xs) (mz:#%app   . xs)])])
   (define-syntax t
     (syntax-rules (=> <= :rt-err: :st-err:)
       [(t E => :rt-err:) (err/rt-test E)]