@@ -4437,14 +4437,17 @@ (into m (zipmap test (repeat expr))) (assoc m test expr))) {} cases) - [shift mask] (min-hash (keys case-map)) + [shift mask] (if (seq case-map) (min-hash (keys case-map)) [0 0]) hmap (reduce (fn [m [test expr :as te]] (assoc m (shift-mask shift mask (hash test)) te)) (sorted-map) case-map)] `(let [~ge ~e] - (case* ~ge ~shift ~mask ~(key (first hmap)) ~(key (last hmap)) ~default ~hmap - ~(every? keyword? (keys case-map)))))) + ~(condp = (count clauses) + 0 default + 1 default + :else `(case* ~ge ~shift ~mask ~(key (first hmap)) ~(key (last hmap)) ~default ~hmap + ~(every? keyword? (keys case-map))))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; helper files ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (alter-meta! (find-ns 'clojure.core) assoc :doc "Fundamental library of the Clojure language") src/clj/clojure/core.clj 2e7e41c9788b9cc02fe070d8e5319929d996ee32 Rich Hickey richhickey@gmail.com http://github.com/richhickey/clojure/commit/d885123f06e3c22f5b8e7eb6b421f047e359e279 d885123f06e3c22f5b8e7eb6b421f047e359e279 2009-11-06T05:14:52-08:00 2009-11-06T05:14:52-08:00 fix case with no or default-only clauses 3f53895019dc6411f0ce7282ee4f9fefb7d13eb0 Rich Hickey richhickey@gmail.com