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