From e695059b027f8a6d30d6848b959f355de8702261 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 Jun 2000 13:41:40 +0000
Subject: [PATCH] .

original commit: cc3bf431ae5fd8a90b83eda136ddba0bc56e6206
---
 collects/tests/mzscheme/unit.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index 1bdec00..5de6b91 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -425,7 +425,11 @@
 		     [x 10])
 		   (sequence
 		     (set! x 5)))))
-		     
+(syntax-test '(let ([x 10])
+		(unit 
+		  (import x)
+		  (export)
+		  (set! x 5))))
 
 ; Especially for zodiac:
 (test '(b c 10 b a (c a b) (c b a) (c . c) (a) #t