diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-10-08 12:01:54 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-10-08 12:01:54 +0000 |
| commit | c3c872bcfcc074fe1e56893214039e0de118ccc5 (patch) | |
| tree | 5ffaef91714e6abc09b448c697d44aa62ecc0783 /src | |
| parent | 4903c466fc7485d6dd1fe27c5244efe4dda8ba8e (diff) | |
fixed isa? of vectors to use supplied hierarchy
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/boot.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj index 65f529a6..79cd1891 100644 --- a/src/clj/clojure/boot.clj +++ b/src/clj/clojure/boot.clj @@ -2874,9 +2874,9 @@ (and (vector? parent) (vector? child) (= (count parent) (count child)) (loop [ret true i 0] - (if (= i (count parent)) + (if (or (not ret) (= i (count parent))) ret - (recur (and (isa? (child i) (parent i)) ret) (inc i)))))))) + (recur (isa? h (child i) (parent i)) (inc i)))))))) (defn parents "Returns the immediate parents of tag, either via a Java type |