- -iterator impl for lite maps

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -12557,6 +12557,13 @@ reduces them without incurring seq initialization"
   (-dissoc! [coll key]
     (-dissoc coll key))
 
+  IIterable
+  (-iterator [coll]
+    (let [xs (-seq coll)]
+      (if (some? xs)
+        (-iterator xs)
+        (nil-iter))))
+
   IPrintWithWriter
   (-pr-writer [coll writer opts]
     (print-map coll pr-writer writer opts)))
@@ -12717,6 +12724,13 @@ reduces them without incurring seq initialization"
   (-dissoc! [coll key]
     (-dissoc coll key))
 
+  IIterable
+  (-iterator [coll]
+    (let [xs (-seq coll)]
+      (if (some? xs)
+        (-iterator xs)
+        (nil-iter))))
+
   IPrintWithWriter
   (-pr-writer [coll writer opts]
     (print-map coll pr-writer writer opts)))