Hi When im using [org.clojure/clojure "1.9.0-alpha14"] together with [org.clojure/tools.analyzer.jvm "0.7.0"] . It breaks reduce, may be i m misusing protocols, am i ?
What seems to be happening is imap-cons is receiving seq as o, so it cant match a proper case. Guess it happens because java.util.List wins over java.util.Map$Entry in protocol resolution. Odd things is, removing analyzer deps changes behavior. (defn- imap-cons [^IPersistentMap this o] #_(defproject cast-exception "0.1.0-SNAPSHOT" :description "FIXME: write description" :url "http://example.com/FIXME"; :license {:name "Eclipse Public License" :url "http://www.eclipse.org/legal/epl-v10.html"} :dependencies [[org.clojure/clojure "1.9.0-alpha14"] [org.clojure/tools.analyzer.jvm "0.7.0"] #_[org.clojure/algo.monads "0.1.6"]] :main ^:skip-aot cast-exception.core :target-path "target/%s" :profiles {:uberjar {:aot :all}}) (ns cast-exception.core (:gen-class)) (defrecord Some [a b]) (defprotocol IMap (-map [ _ ])) (extend-type nil IMap (-map [ a ] a)) (extend-type Object IMap (-map [ a ] a)) (extend-type java.util.List IMap (-map [ a ] (map -map a))) (extend-type java.util.Map$Entry IMap (-map [ a ] [(-map (first a)) (-map (second a))])) (extend-type java.util.Map IMap (-map [ a ] (if (record? a) (into a (map #(-map %) (seq a))) (into (empty a) (map #(-map %) (seq a)))))) (let [a (->Some (quote b) 2)] (-map a)) Cheers. -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.
