Skip to content
Browse files

deftype failed to implement Iterable

  • Loading branch information...
1 parent 68ec7ed commit 4e64fa212cb5e2463c611670f6d90fe7f30f3546 @richhickey richhickey committed Apr 9, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/clj/clojure/core_deftype.clj
View
1 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]

0 comments on commit 4e64fa2

Please sign in to comment.
Something went wrong with that request. Please try again.