Fix scanner for cljs

This commit is contained in:
Tommi Reiman 2019-01-17 08:18:35 +02:00
parent 95ebdfa6a4
commit ff20260f5f

View file

@ -61,7 +61,10 @@
(defn scanner [compiled-tries]
"Returns a new compiled trie that does linear scan on the given compiled tries on [[lookup]]."
#?(:cljs (fn [path] (some (fn [trie] (lookup trie path)) compiled-tries))
#?(:cljs (reify
Segment
(-lookup [_ ps params]
(some (fn [trie] (-lookup trie ps params)) compiled-tries)))
:clj (SegmentTrie/scanner compiled-tries)))
(defn lookup [trie path]