make filterer eager on select

This commit is contained in:
Nathan Marz 2015-04-22 11:45:35 -04:00
parent c456e72dea
commit ec097f8db2

View file

@ -218,7 +218,7 @@
(deftype FilterStructurePath [afn]
StructurePath
(select* [this structure next-fn]
(next-fn (filter afn structure)))
(->> structure (filter afn) doall next-fn))
(update* [this structure next-fn]
(let [[filtered ancestry] (filter+ancestry afn structure)
;; the vec is necessary so that we can get by index later