Source
clojure/contrib/zip_filter.clj:84
top
(defn mapcat-chain
^{:private true}
[loc preds mkpred]
(reduce (fn [prevseq expr]
(mapcat #(fixup-apply (or (mkpred expr) expr) %) prevseq))
(list (with-meta loc (assoc (meta loc) :zip-filter/is-node? true)))
preds))
Comments top
No comments for mapcat-chain. Log in to add a comment.