From c768bcd3f6f617d91eba872f9e63242698eb419e Mon Sep 17 00:00:00 2001 From: David Nolen Date: Sun, 2 Oct 2011 12:52:15 -0400 Subject: [PATCH] * src/main/clojure/clojure/core/match/core.clj: remove dead code --- src/main/clojure/clojure/core/match/core.clj | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) 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)