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

fixes

Browse source
This commit is contained in:
Nathan Marz 2016-09-01 21:46:04 -04:00
parent e910f32931
commit 23299457db
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/clj/com/rpl/specter/impl.cljc
View file

@ -659,10 +659,7 @@
(->DynamicVal (:sym o))
(instance? SpecialFormUse o)
(let [code (:code o)
v (->DynamicVal code)]
(if (= 'fn* (first code))
(->DynamicFunction pred* [v])))
(->DynamicVal (:code o))
(instance? FnInvocation o)
(let [op (magic-precompilation* (:op o))
@ -733,9 +730,15 @@
(resolve-magic-code path)))
(instance? DynamicVal o)
(if (-> o :code direct-nav?)
(:code o)
`(coerce-nav ~(:code o)))
(let [code (:code o)]
(cond (direct-nav? code)
code
(or (set? code) (and (fn-invocation? code) (= 'fn* (first code))))
`(pred* ~code)
:else
`(coerce-nav ~code)))
(instance? DynamicFunction o)
(let [op (resolve-dynamic-fn-arg (:op o))