Implement Iterable in clojure.core/bean.

Signed-off-by: Stuart Halloway <[email protected]>

Author: frenchy64

src/clj/clojure/core_proxy.clj

@@ -392,6 +392,7 @@
                            {} (seq pmap)))]
     (proxy [clojure.lang.APersistentMap]
            []
+      (iterator [] (.iterator ^Iterable pmap))
       (containsKey [k] (contains? pmap k))
       (entryAt [k] (when (contains? pmap k) (new clojure.lang.MapEntry k (v k))))
       (valAt ([k] (when (contains? pmap k) (v k)))

test/clojure/test_clojure/java_interop.clj

@@ -143,6 +143,9 @@
 
         (:class b) java.awt.Color )))
 
+(deftest test-iterable-bean
+  (is (.iterator ^Iterable (bean (java.util.Date.))))
+  (is (hash (bean (java.util.Date.)))))
 
 ; proxy, proxy-super