Removed debugging trace

2016-09-23 00:53:43 +02:00 · 2016-09-23 00:53:43 +02:00 · 30be092c1b
commit 30be092c1b
parent 354794a185
1 changed files with 1 additions and 1 deletions
--- a/private/no-order.rkt
+++ b/private/no-order.rkt
@ -216,7 +216,7 @@
                                    1)
                          (string-append "more than one of the lifted rest"
                                         " patterns matched")}))))
-        ((λ (x) (pretty-write (syntax->datum x)) x)
+        ((λ (x) #;(pretty-write (syntax->datum x)) x)
         #`(~delimit-cut
            (~and #,(fix-disappeared-uses)
                  whole-clause-pat