www

commit c107770f730d642ecb360b1d5b1fe3d1f3326490
parent bb82cfd9e4c605aef9cba6267217df1e57e9c3ca
Author: Georges Dupéron <georges.duperon@gmail.com>
Date:   Thu, 20 Oct 2016 01:01:21 +0200

Compatibility with ≤ v6.5

Diffstat:
M
main.rkt
 | 
19
++++++++++---------

1 file changed, 10 insertions(+), 9 deletions(-)
diff --git a/main.rkt b/main.rkt
@@ -72,15 +72,16 @@
                                      (syntax-local-value id (λ () #f))))
                                   (syntax->list #'(id ...)))
      (with-disappeared-uses
-      (record-disappeared-uses (syntax->list #'(pvar-id ...)))
-      #'(let-syntax ([pvar-id
-                      (make-set!-transformer
-                       (let ([mapping (syntax-local-value
-                                       (quote-syntax pvar-id))])
-                         (make-auto-pvar (syntax-mapping-depth mapping)
-                                         (syntax-mapping-valvar mapping))))]
-                     ...)
-          body ...))]))
+      (let ()
+        (record-disappeared-uses (syntax->list #'(pvar-id ...)))
+        #'(let-syntax ([pvar-id
+                        (make-set!-transformer
+                         (let ([mapping (syntax-local-value
+                                         (quote-syntax pvar-id))])
+                           (make-auto-pvar (syntax-mapping-depth mapping)
+                                           (syntax-mapping-valvar mapping))))]
+                       ...)
+            body ...)))]))
 
 (define-syntax auto-with-syntax
   (syntax-parser