suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Record disappeared uses from syntax/parse/experimental/template (#1423)

Browse Source
This commit is contained in:
Alexis King 2016-08-17 14:50:56 -07:00 committed by Ryan Culpepper
parent 30f946fc4b
commit 232c80e340
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/syntax/parse/experimental/template.rkt
View File

@ -42,6 +42,7 @@ A HeadTemplate (H) is one of:
(begin-for-syntax (begin-for-syntax
(define (do-template ctx tstx quasi? loc-id) (define (do-template ctx tstx quasi? loc-id)
(with-disappeared-uses
(parameterize ((current-syntax-context ctx) (parameterize ((current-syntax-context ctx)
(quasi (and quasi? (box null)))) (quasi (and quasi? (box null))))
(let*-values ([(guide deps props-guide) (parse-template tstx loc-id)] (let*-values ([(guide deps props-guide) (parse-template tstx loc-id)]
@ -74,7 +75,7 @@ A HeadTemplate (H) is one of:
(substitute (quote-syntax t) (substitute (quote-syntax t)
'props-guide 'props-guide
'guide 'guide
vars-vector)))]))))))) vars-vector)))]))))))))
(define-syntax (template stx) (define-syntax (template stx)
(syntax-case stx () (syntax-case stx ()
@ -599,7 +600,8 @@ instead of integers and integer vectors.
(values drivers #f guide props-guide))])) (values drivers #f guide props-guide))]))
(define (lookup id depth) (define (lookup id depth)
(let ([v (syntax-local-value id (lambda () #f))]) (let ([v (syntax-local-value/record id (lambda (v) (or (syntax-pattern-variable? v)
(template-metafunction? v))))])
(cond [(syntax-pattern-variable? v) (cond [(syntax-pattern-variable? v)
(let* ([pvar-depth (syntax-mapping-depth v)] (let* ([pvar-depth (syntax-mapping-depth v)]
[attr (syntax-local-value (syntax-mapping-valvar v) (lambda () #f))] [attr (syntax-local-value (syntax-mapping-valvar v) (lambda () #f))]