Browse files

don't use extends? check, I believe this created a problem under AOT.

  • Loading branch information...
1 parent c56fb41 commit cbcc6e5fa070a7025e72f5eab4e83eaec100332b David Nolen committed Nov 23, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/main/clojure/clojure/core/match.clj
2 src/main/clojure/clojure/core/match.clj
@@ -429,7 +429,7 @@
(declare to-source)
(defn dag-clause-to-clj [occurrence pattern action]
- (let [test (if (extends? IPatternCompile (class pattern))
+ (let [test (if (instance? clojure.core.match.IPatternCompile pattern)
(to-source* pattern occurrence)
(to-source pattern occurrence))]
(if @*breadcrumbs*

0 comments on commit cbcc6e5

Please sign in to comment.