member to memq

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

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

@ -1 +1 @@
1515438158 1515628033

Loading…
Cancel
Save