From 93312b4ca7b499dad5b5c7dcf818bc4e918be9ee Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 10 Jan 2018 15:47:13 -0800 Subject: [PATCH] member to memq --- pollen/decode.rkt | 4 ++-- pollen/private/ts.rktd | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/pollen/decode.rkt b/pollen/decode.rkt index 8270f1f..ee88ed5 100644 --- a/pollen/decode.rkt +++ b/pollen/decode.rkt @@ -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 diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 996eb3b..961a438 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1515438158 +1515628033