..

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,7 +225,8 @@
          ((_ exp clause ...)
           (quasisyntax/loc 
            stx 
-            (let ((x exp)) #,(gen-match (syntax x)
+            (let ((x exp))
+              #,(gen-match (syntax x)
                           '()
                           (syntax (clause ...))
                           stx)))))))