diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-10-11 14:31:41 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-10-11 14:31:41 +0000 |
| commit | 46e50142c1a101b800e3f19bfff611c53ef820c9 (patch) | |
| tree | 30e4ac0ada2fa615ed75a0856a548683ff68c1cd /src | |
| parent | 2faa08e4d42feac84230d52272de6f10b0caa434 (diff) | |
flow metadata on name through defmulti
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/boot.clj | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/clj/clojure/boot.clj b/src/clj/clojure/boot.clj index f721ec33..0abcc356 100644 --- a/src/clj/clojure/boot.clj +++ b/src/clj/clojure/boot.clj @@ -977,7 +977,8 @@ is :default." ([name dispatch-fn] `(defmulti ~name ~dispatch-fn :default)) ([name dispatch-fn default-val] - `(def ~(with-meta name {:tag 'clojure.lang.MultiFn}) (new clojure.lang.MultiFn ~dispatch-fn ~default-val)))) + `(def ~(with-meta name (assoc ^name :tag 'clojure.lang.MultiFn)) + (new clojure.lang.MultiFn ~dispatch-fn ~default-val)))) (defmacro defmethod "Creates and installs a new method of multimethod associated with dispatch-value. " |