diff options
| author | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-03-23 13:02:56 +0000 |
|---|---|---|
| committer | Konrad Hinsen <konrad.hinsen@laposte.net> | 2009-03-23 13:02:56 +0000 |
| commit | 22fe339ab2396963634688afed7fd7b4a09f8192 (patch) | |
| tree | c4bf74c5215f39e97c1fb7dde722ec60f14c84ff | |
| parent | 611ec68f65624f34b05739c75a722eb8ac7131ef (diff) | |
generic.functor: implementation for lists replaces implementation for seqs
| -rw-r--r-- | src/clojure/contrib/generic/functor.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clojure/contrib/generic/functor.clj b/src/clojure/contrib/generic/functor.clj index 1198c510..8611916f 100644 --- a/src/clojure/contrib/generic/functor.clj +++ b/src/clojure/contrib/generic/functor.clj @@ -1,7 +1,7 @@ ;; Generic interface for functors ;; by Konrad Hinsen -;; last updated March 18, 2009 +;; last updated March 23, 2009 ;; Copyright (c) Konrad Hinsen, 2009. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse @@ -21,9 +21,9 @@ {:arglists '([f s])} (fn [f s] (type s))) -(defmethod fmap clojure.lang.ISeq - [f s] - (map f s)) +(defmethod fmap clojure.lang.IPersistentList + [f v] + (into (empty v) (map f v))) (defmethod fmap clojure.lang.IPersistentVector [f v] |