From c107770f730d642ecb360b1d5b1fe3d1f3326490 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Thu, 20 Oct 2016 01:01:21 +0200 Subject: [PATCH] =?UTF-8?q?Compatibility=20with=20=E2=89=A4=20v6.5?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- main.rkt | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/main.rkt b/main.rkt index 35a271c..7884428 100644 --- 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