From 235272ef76820d6f5091ce6269a3d3330750f1e1 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 11 Jan 2018 15:28:23 -0800 Subject: [PATCH] duh --- pollen/decode.rkt | 2 +- pollen/private/ts.rktd | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/pollen/decode.rkt b/pollen/decode.rkt index ee88ed5..ef73b37 100644 --- a/pollen/decode.rkt +++ b/pollen/decode.rkt @@ -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 diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 961a438..3e1800a 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1515628033 +1515713303