Fix issue with racket v6.5

2016-09-05 14:41:44 +02:00 · 2016-09-05 14:41:44 +02:00 · 035f51646b
commit 035f51646b
parent 557c91a678
1 changed files with 2 additions and 2 deletions
--- a/private/no-order.rkt
+++ b/private/no-order.rkt
@ -47,8 +47,8 @@
   (λ (stx)
     (syntax-case stx ()
       [(self pat ...)
-        ((λ (x) #;(pretty-write (syntax->datum x)) x)
-         (with-disappeared-uses
+        (with-disappeared-uses
+         (let ()
           (define counter 0)
           (define (increment-counter)
             (begin0 counter