luciano/xforms
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Preserve type hints

Browse source
This commit is contained in:
Christophe Grand 2016-12-08 16:28:46 +01:00
parent d16bd380fa
commit a4a5e6a8df
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/net/cgrand/xforms.clj
View file

@ -46,7 +46,7 @@
([~acc] (~rf ~acc)) ([~acc] (~rf ~acc))
([~acc ~binding] ~body) ([~acc ~binding] ~body)
~(if (destructuring-pair? binding) ~(if (destructuring-pair? binding)
`([~acc ~@(map #(vary-meta % dissoc :tag) binding)] ~body) `([~acc ~@binding] ~body)
`([~acc k# v#] `([~acc k# v#]
(let [~binding (clojure.lang.MapEntry. k# v#)] ~body))))))))) (let [~binding (clojure.lang.MapEntry. k# v#)] ~body)))))))))
@ -67,7 +67,10 @@
(some-kvrf [this#] this#) (some-kvrf [this#] this#)
clojure.lang.IFn clojure.lang.IFn
~@(clj/for [[args & body] fn-bodies] ~@(clj/for [[args & body] fn-bodies]
`(invoke [~name ~@args] ~@body))))) (let [nohint-args (map (fn [arg] (if (:tag (meta arg)) (gensym 'arg) arg)) args)
rebind (mapcat (fn [arg nohint]
(when-not (= arg nohint) [arg nohint])) args nohint-args)]
`(invoke [~name ~@nohint-args] (let [~@rebind] ~@body)))))))
(defn ensure-kvrf [rf] (defn ensure-kvrf [rf]
(or (some-kvrf rf) (or (some-kvrf rf)