3 arity into

stuarth · stuarth · commit c1a23c866030 · 2015-04-19T16:38:18.000-04:00
diff --git a/pixie/fs.pxi b/pixie/fs.pxi
@@ -52,7 +52,7 @@
     "Recursively returns all files and directories below")
 
   (walk-files [this]
-    "Recursivelt returns all files underneath")
+    "Recursively returns all files underneath")
 
   (walk-dirs [this]
     "Recursivley returns all directories underneath"))
diff --git a/pixie/stdlib.pxi b/pixie/stdlib.pxi
@@ -195,11 +195,14 @@
 (def into (fn ^{:doc "Add the elements of `from` to the collection `to`."
                 :signatures [[to from]]
                 :added "0.1"}
-            into
-            [to from]
-            (if (satisfies? IToTransient to)
-              (persistent! (reduce conj! (transient to) from))
-              (reduce conj to from))))
+            ([to from]
+             (if (satisfies? IToTransient to)
+               (persistent! (reduce conj! (transient to) from))
+               (reduce conj to from)))
+            ([to xform from]
+             (if (satisfies? IToTransient to)
+               (transduce xform conj! (transient to) from)
+               (transduce xform conj to from)))))
 
 (def interpose
   (fn ^{:doc "Returns a transducer that inserts `val` in between elements of a collection."
diff --git a/tests/pixie/tests/test-stdlib.pxi b/tests/pixie/tests/test-stdlib.pxi
@@ -338,6 +338,10 @@
               [2 :a] [2 :b] [2 :c]
               [3 :a] [3 :b] [3 :c]]))
 
+(t/deftest test-into
+  (t/assert= [1 3] (into [] (comp (map inc) (filter odd?)) (range 3)))
+  (t/assert= {:a 1 :b 2} (into {} [[:a 1] [:b 2]])))
+
 (t/deftest test-ex-msg
   (try
      (throw "This is an exception")
