diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-07-28 01:17:16 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-07-28 01:17:16 +0000 |
| commit | 340c5afccdfac96cdb2612657b88418c40104c2f (patch) | |
| tree | 7a78a9b9f0840514957a5fa70d7a9358d34eaf24 /src | |
| parent | 00061735edd435995167ee7bbf01a17d8ae2cc66 (diff) | |
fixed class bug in isa?
Diffstat (limited to 'src')
| -rw-r--r-- | src/clojure/boot.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/boot.clj b/src/clojure/boot.clj index 3b6d70bb..a4725135 100644 --- a/src/clojure/boot.clj +++ b/src/clojure/boot.clj @@ -2770,7 +2770,7 @@ not-every? (comp not every?)) (and (class? parent) (class? child) (. #^Class parent isAssignableFrom child)) (contains? ((:ancestors h) child) parent) - (and (class child) (some #(contains? ((:ancestors h) %) parent) (supers child))) + (and (class? child) (some #(contains? ((:ancestors h) %) parent) (supers child))) (and (vector? parent) (vector? child) (= (count parent) (count child)) (loop [ret true i 0] |