luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix build

Browse source
This commit is contained in:
nathanmarz 2018-03-22 16:01:43 -04:00
parent 38a27ecc43
commit 01617b6264
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/clj/com/rpl/specter/navs.cljc
View file

@ -566,6 +566,14 @@
(str begins newl) (str begins newl)
))) )))
#?(:cljs cljs.core/MapEntry)
#?(:cljs
(update-first [e afn]
(cljs.core/->MapEntry (-> e key afn) (val e) nil)))
#?(:cljs
(update-last [e afn]
(cljs.core/->MapEntry (key e) (-> e val afn) nil)))
#?(:clj Object :cljs default) #?(:clj Object :cljs default)
(update-first [l val] (update-first [l val]
(update-first-list l val)) (update-first-list l val))
@ -586,6 +594,12 @@
(get-last [s] (get-last [s]
(last s)) (last s))
#?(:cljs cljs.core/MapEntry)
(get-first [e]
(key e))
(get-last [e]
(val e))
#?(:clj String :cljs string) #?(:clj String :cljs string)
(get-first [s] (get-first [s]
(nth s 0)) (nth s 0))