deftype failed to implement Iterable

kasz · Apr 10, 2012 · 4e64fa2 · 4e64fa2
1 parent 68ec7ed
commit 4e64fa2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj
@@ -205,6 +205,7 @@
                                               (clojure.lang.MapEntry. k# v#))))
                    `(seq [this#] (seq (concat [~@(map #(list `new `clojure.lang.MapEntry (keyword %) %) base-fields)] 
                                               ~'__extmap)))
+                   `(iterator [this#] (clojure.lang.SeqIterator. (.seq this#)))
                    `(assoc [this# k# ~gs]
                      (condp identical? k#
                        ~@(mapcat (fn [fld]