diff --git a/private/no-order.rkt b/private/no-order.rkt
index 360f129..d6636f9 100644
--- 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