Compatibility with ≤ v6.5

main.rkt

@@ -72,6 +72,7 @@
                                      (syntax-local-value id (λ () #f))))
                                   (syntax->list #'(id ...)))
      (with-disappeared-uses
+      (let ()
         (record-disappeared-uses (syntax->list #'(pvar-id ...)))
         #'(let-syntax ([pvar-id
                         (make-set!-transformer
@@ -80,7 +81,7 @@
                            (make-auto-pvar (syntax-mapping-depth mapping)
                                            (syntax-mapping-valvar mapping))))]
                        ...)
-          body ...))]))
+            body ...)))]))
 
 (define-syntax auto-with-syntax
   (syntax-parser