allow updating sets

2015-02-27 11:34:49 -06:00 · 2015-02-27 11:34:49 -06:00 · ea0cb032b3
commit ea0cb032b3
parent 14944d2582
1 changed files with 1 additions and 8 deletions
--- a/src/clj/com/rpl/specter/impl.clj
+++ b/src/clj/com/rpl/specter/impl.clj
@ -143,14 +143,7 @@
    (into [] (r/mapcat (partial next-fn vals) structure)))
  (update* [this vals structure next-fn]
    (let [ret (r/map (partial next-fn vals) structure)]
-      (cond (vector? structure)
-            (into [] ret)
-
-            (map? structure)
-            (into {} ret)
-            
-            :else
-            (into '() ret)))
+      (into (empty structure) ret))
    ))

 (deftype ValStructurePath []