Merge pull request #415 from mpenet/feature/record-ireduce

Implement IReduce on Records

Author: thomasmulvaney

pixie/stdlib.pxi

@@ -1268,6 +1268,19 @@ and implements IAssociative, ILookup and IObject."
                                          fields)
                                       not-found#)))
 
+                        'IReduce
+                        `(-reduce [self# f# init#]
+                                   (loop [fields# ~fields
+                                          acc# init#]
+                                     (if-let [field# (first fields#)]
+                                       (let [acc# (f# acc# (map-entry field#
+                                                                     (get-field self#
+                                                                                field#)))]
+                                         (if (reduced? acc#)
+                                           @acc#
+                                           (recur (next fields#) acc#)))
+                                       acc#)))
+
                         'IMeta
                         `(-with-meta [self# ~meta-gs]
                                      (new ~nm

tests/pixie/tests/test-defrecord.pxi

@@ -57,3 +57,9 @@
 (t/deftest test-record-metadata
   (t/assert= nil (meta t1))
   (t/assert= :foo (-> t1 (with-meta :foo) meta)))
+
+
+(t/deftest ireduce []
+  (t/assert= [[:one 1] [:two 2] [:three 3]] (reduce conj [] t1))
+  (t/assert= [1 2 3] (vals t1))
+  (t/assert= [:one :two :three] (keys t1)))