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

3
main.rkt
View File

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