pull/169/head
Matthew Butterick 7 years ago
parent 93312b4ca7
commit 235272ef76

@ -52,7 +52,7 @@
(cond
[(txexpr? x) (let-values([(tag attrs elements) (txexpr->values x)])
(if (or (memq tag excluded-tags) (for/or ([attr (in-list attrs)])
(memq attr excluded-attrs)))
(member 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 @@
1515628033
1515713303

Loading…
Cancel
Save