Fix to if-some as the docs say

This commit is contained in:
Tommi Reiman 2018-11-04 20:54:52 +02:00
parent 35993ff257
commit 48318b8793

View file

@ -25,7 +25,7 @@
[f coll] [f coll]
(reduce-kv (reduce-kv
(fn [coll k v] (fn [coll k v]
(if-let [v' (f v)] (if-some [v' (f v)]
(assoc coll k v') (assoc coll k v')
coll)) coll))
coll coll