member to memq

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)])
+                     (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
                          ;; 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

pollen/private/ts.rktd

@@ -1 +1 @@
-1515438158
+1515628033