member to memq

pull/165/merge
Matthew Butterick 7 years ago
parent d41045f079
commit 93312b4ca7

@ -51,8 +51,8 @@
(let loop ([x tx-in])
(cond
[(txexpr? x) (let-values([(tag attrs elements) (txexpr->values x)])
(if (or (member tag excluded-tags) (for/or ([attr (in-list attrs)])
(member attr excluded-attrs)))
(if (or (memq tag excluded-tags) (for/or ([attr (in-list attrs)])
(memq attr excluded-attrs)))
x ; because it's excluded
;; we apply processing here rather than do recursive descent on the pieces
;; because if we send them back through loop, certain element types are ambiguous

@ -1 +1 @@
1515438158
1515628033

Loading…
Cancel
Save