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

Fixes #1452 syntax-parse discards the 'disappeared-uses property added by pattern-expanders

Browse Source
This commit is contained in:
Georges Dupéron 2016-09-07 18:07:17 +02:00 committed by Ryan Culpepper
parent c618ec803a
commit 85fe092ed9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/syntax/parse/private/rep.rkt
View File

@ -168,8 +168,12 @@
(define (disappeared! x) (define (disappeared! x)
(cond [(identifier? x) (cond [(identifier? x)
(when (syntax-property x 'disappeared-uses)
(record-disappeared-uses (syntax-property x 'disappeared-uses)))
(record-disappeared-uses (list x))] (record-disappeared-uses (list x))]
[(and (stx-pair? x) (identifier? (stx-car x))) [(and (stx-pair? x) (identifier? (stx-car x)))
(when (syntax-property (stx-car x) 'disappeared-uses)
(record-disappeared-uses (syntax-property (stx-car x) 'disappeared-uses)))
(record-disappeared-uses (list (stx-car x)))] (record-disappeared-uses (list (stx-car x)))]
[else [else
(raise-type-error 'disappeared! (raise-type-error 'disappeared!
@ -252,7 +256,7 @@
(append/check-lits+litsets lits datum-lits litsets)) (append/check-lits+litsets lits datum-lits litsets))
(define-values (convs-rules convs-defs) (define-values (convs-rules convs-defs)
(for/fold ([convs-rules null] [convs-defs null]) (for/fold ([convs-rules null] [convs-defs null])
([conv-entry (in-list convs)]) ([conv-entry (in-list convs)])
(let* ([c (car conv-entry)] (let* ([c (car conv-entry)]
[argu (cdr conv-entry)] [argu (cdr conv-entry)]
[get-parser-id (conventions-get-procedures c)] [get-parser-id (conventions-get-procedures c)]