suzanne.soy/auto-syntax-e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compatibility with ≤ v6.5

Browse Source
This commit is contained in:
Georges Dupéron 2016-10-20 01:01:21 +02:00
parent bb82cfd9e4
commit c107770f73
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
main.rkt
View File

@ -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