Permalink
Browse files

Updated to Java commit 49f63b2 (2012.08.18): bases should return a se…

…q, not a Java array
  • Loading branch information...
dmiller committed Sep 2, 2012
1 parent 1988bd7 commit f16381809b027bc55cbaa69e4a1f5bb7496c5c7f
@@ -4915,10 +4915,9 @@
:static true}
[^Type c] ;;; Class ==> Type
(when c
- (let [i (.GetInterfaces c) ;;; .getInterfaces ==> .GetInterfaces
+ (let [i (seq (.GetInterfaces c)) ;;; .getInterfaces ==> .GetInterfaces
s (.BaseType c)] ;;; .getSuperclass ==> BaseType
- (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"
@@ -127,6 +127,7 @@
;;; (:missing b :default) :default
;;; (get b :missing) nil
;;; (get b :missing :default) :default
+
;;; (:class b) java.awt.Color )))
@@ -152,6 +153,12 @@
(are [x y] (= x y)
(bases System.Math) ;;; java.lang.Math)
(list System.Object) ;;; java.lang.Object)
+ (bases System.Collections.ICollection) ;;; java.util.Collection)
+ (list System.Collections.IEnumerable) ;;; java.lang.Iterable)
+ (bases System.Object) ;;; java.lang.Object)
+ nil
+ (bases System.IComparable) ;;; java.lang.Comparable)
+ nil
(bases System.Int32) ;;; java.lang.Integer)
(list System.ValueType System.IComparable System.IFormattable System.IConvertible |System.IComparable`1[System.Int32]| |System.IEquatable`1[System.Int32]|) )) ;;; (java.lang.Number java.lang.Comparable)

0 comments on commit f163818

Please sign in to comment.