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

Use syntax-local-introduce to fix arrows in match.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2016-03-02 18:02:26 -05:00
parent 9b4f830268
commit 8eadc197a9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/match/parse-helper.rkt
View File

@ -116,7 +116,7 @@
(make-Struct pred (make-Struct pred
(syntax-property (syntax-property
pred pred
'disappeared-use (list struct-name)) 'disappeared-use (list (syntax-local-introduce struct-name)))
lineage (and (checked-struct-info? v) complete?) lineage (and (checked-struct-info? v) complete?)
acc acc
(cond [(eq? '_ (syntax-e pats)) (cond [(eq? '_ (syntax-e pats))