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:13:20 -04:00
parent e33ecb2c33
commit e910f32931
2 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -603,9 +603,14 @@
(closed-code closure new-form)))) (closed-code closure new-form))))
(defn coerce-nav [o] (defn coerce-nav [o]
(if (instance? com.rpl.specter.protocols.RichNavigator o) (cond (instance? com.rpl.specter.protocols.RichNavigator o)
o o
(p/implicit-nav o)))
(vector? o)
(comp-paths* o)
:else
(p/implicit-nav o)))
(defn dynamic-var? [v] (defn dynamic-var? [v]

2
src/clj/com/rpl/specter/macros.clj
View file

@ -176,7 +176,7 @@
:else :else
(if (empty? (used-locals locals-set path)) (if (empty? (used-locals locals-set path))
path path
`(com.rpl.specter.impl/->DynamicVal ~path (quote ~path))))) `(com.rpl.specter.impl/->DynamicVal (quote ~path)))))
; (defn ^:no-doc ic-possible-params [path] ; (defn ^:no-doc ic-possible-params [path]