diff options
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 |