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-local-value id (λ () #f))))
(syntax->list #'(id ...))) (syntax->list #'(id ...)))
(with-disappeared-uses (with-disappeared-uses
(record-disappeared-uses (syntax->list #'(pvar-id ...))) (let ()
#'(let-syntax ([pvar-id (record-disappeared-uses (syntax->list #'(pvar-id ...)))
(make-set!-transformer #'(let-syntax ([pvar-id
(let ([mapping (syntax-local-value (make-set!-transformer
(quote-syntax pvar-id))]) (let ([mapping (syntax-local-value
(make-auto-pvar (syntax-mapping-depth mapping) (quote-syntax pvar-id))])
(syntax-mapping-valvar mapping))))] (make-auto-pvar (syntax-mapping-depth mapping)
...) (syntax-mapping-valvar mapping))))]
body ...))])) ...)
body ...)))]))
(define-syntax auto-with-syntax (define-syntax auto-with-syntax
(syntax-parser (syntax-parser