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

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

@ -168,8 +168,12 @@
(define (disappeared! x)
(cond [(identifier? x)
(when (syntax-property x 'disappeared-uses)
(record-disappeared-uses (syntax-property x 'disappeared-uses)))
(record-disappeared-uses (list 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)))]
[else
(raise-type-error 'disappeared!