diff --git a/src/main/clojure/clojure/core/match/core.clj b/src/main/clojure/clojure/core/match/core.clj
index 74493378..0e80d241 100644
--- a/src/main/clojure/clojure/core/match/core.clj
+++ b/src/main/clojure/clojure/core/match/core.clj
@@ -583,10 +583,7 @@
             (empty-row? [row]
               (let [ps (patterns row)]
                 (and (not (nil? ps))
-                     (empty? ps))))
-            (has-ocr-expr? [ocrs]
-              (some #(contains? (meta %) :ocr-expr)
-                    ocrs))]
+                     (empty? ps))))]
       (cond
         (empty? rows) (empty-rows-case)