From 9213b2bfa735010453efaae8e2da0245e46dd0bf Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 5 Jan 2004 08:40:44 +0000
Subject: [PATCH] ..

original commit: b96c2a6800e291e6edcefad83ea981fe681e42c1
---
 collects/mzlib/plt-match.ss | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.ss
index 782eda3..1b2761d 100644
--- a/collects/mzlib/plt-match.ss
+++ b/collects/mzlib/plt-match.ss
@@ -225,10 +225,11 @@
           ((_ exp clause ...)
            (quasisyntax/loc 
             stx 
-            (let ((x exp)) #,(gen-match (syntax x)
-                                        '()
-                                        (syntax (clause ...))
-                                        stx)))))))
+            (let ((x exp))
+              #,(gen-match (syntax x)
+                           '()
+                           (syntax (clause ...))
+                           stx)))))))
 
     (define match-lambda/proc 
       (lambda (stx)