..

original commit: b96c2a6800e291e6edcefad83ea981fe681e42c1
2004-01-05 08:40:44 +00:00 · 2004-01-05 08:40:44 +00:00 · 9213b2bfa7
commit 9213b2bfa7
parent 26c2d754fd
1 changed files with 5 additions and 4 deletions
--- 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)