bases should return a seq, not a Java array

Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
clojure · Aug 18, 2012 · 49f63b2 · 49f63b2
1 parent cc223bb
commit 49f63b2
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
@@ -4915,10 +4915,9 @@
    :static true}
   [^Class c]
   (when c
-    (let [i (.getInterfaces c)
+    (let [i (seq (.getInterfaces c))
           s (.getSuperclass c)]
-      (not-empty
-       (if s (cons s i) i)))))
+      (if s (cons s i) i))))
 
 (defn supers
   "Returns the immediate and indirect superclasses and interfaces of c, if any"

diff --git a/test/clojure/test_clojure/java_interop.clj b/test/clojure/test_clojure/java_interop.clj
@@ -153,6 +153,12 @@
   (are [x y] (= x y)
       (bases java.lang.Math)
         (list java.lang.Object)
+      (bases java.util.Collection)
+        (list java.lang.Iterable)
+      (bases java.lang.Object)
+        nil
+      (bases java.lang.Comparable)
+        nil
       (bases java.lang.Integer)
         (list java.lang.Number java.lang.Comparable) ))