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

syntax/parse: only collect attrs with interned names

Browse Source
This commit is contained in:
Ryan Culpepper 2018-07-10 16:41:36 +02:00
parent 7fc309c524
commit 34e7c8f556
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -178,12 +178,13 @@
[else 'no]))
(stxclass-colon-notation? colon-notation?))
(parse-variants rest decls splicing? expected-attrs)))
(let ([sattrs
(or attributes
(intersect-sattrss (map variant-attrs variants)))])
(make rhs sattrs transp? description variants
(append (get-txlifts-as-definitions) defs)
commit? delimit-cut?))))))
(define sattrs
(or attributes
(filter (lambda (a) (symbol-interned? (attr-name a)))
(intersect-sattrss (map variant-attrs variants)))))
(make rhs sattrs transp? description variants
(append (get-txlifts-as-definitions) defs)
commit? delimit-cut?)))))
(define (parse-rhs/part1 stx splicing? strict?)
(define-values (chunks rest)