* src/main/clojure/clojure/core/match/core.clj: remove dead code

clojure · Oct 2, 2011 · c768bcd · c768bcd
1 parent c88c605
commit c768bcd
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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)