Compatibility with v6.5

private/no-order.rkt

@@ -66,7 +66,7 @@
 (define-for-syntax (fix-disappeared-uses)
   ;; Fix for https://github.com/racket/racket/issues/1452
   (let ([dis (current-recorded-disappeared-uses)])
-    #`{~do #,(with-disappeared-uses
+    #`{~do #,(with-disappeared-uses*
               (record-disappeared-uses dis)
               #'(void))}))
 
@@ -78,8 +78,7 @@
    (λ (stx)
      (syntax-case stx ()
        [(self pat ...)
-        (with-disappeared-uses
-         (let ()
+        (with-disappeared-uses*
          (define counter 0)
          (define (increment-counter)
            (begin0 counter
@@ -133,7 +132,7 @@
                                                    i))}
                     ~!
                     (~bind #,@post-group-bindings)
-                      #,@post-acc)))))]))))
+                    #,@post-acc))))]))))
 
 (define-syntax ~no-order
   (pattern-expander