diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-12-05 15:31:53 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-12-05 15:31:53 +0000 |
| commit | 52ee0535dba9c273f5af93df2eb436473b9f936b (patch) | |
| tree | 0a960b28d61220b0dd6a48b2439e9140ef523a6b /src/clojure/contrib/fcase.clj | |
| parent | 0055b7e6d92549fe28fdc1f6a0121c89ea93a6c2 (diff) | |
fcase.clj: fixed private symbol used by in-case (report by T. Roussanov)
Diffstat (limited to 'src/clojure/contrib/fcase.clj')
| -rw-r--r-- | src/clojure/contrib/fcase.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/fcase.clj b/src/clojure/contrib/fcase.clj index 7e21b7c9..5fdcb2f2 100644 --- a/src/clojure/contrib/fcase.clj +++ b/src/clojure/contrib/fcase.clj @@ -80,7 +80,7 @@ [test-value & clauses] `(fcase instance? ~test-value ~@clauses)) -(defn- in-case-test [test-seq case-value] +(defn in-case-test [test-seq case-value] (some (fn [item] (= item case-value)) test-seq)) |