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

error if pathed fn used where navigator expected

Browse source
This commit is contained in:
Nathan Marz 2016-06-15 11:41:12 -04:00
parent 356dd1d03e
commit ef8039cacc
1 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/clj/com/rpl/specter/impl.cljx
View file

@ -1246,9 +1246,17 @@
(instance? VarUse p)
(let [v (:var p)
vv (:val p)]
(cond (-> v meta :dynamic) (magic-fail! "Var " (:sym p) " is dynamic")
(valid-navigator? vv) vv
:else (magic-fail! "Var " (:sym p) " is not a navigator")
(cond (-> v meta :dynamic)
(magic-fail! "Var " (:sym p) " is dynamic")
(and (fn? vv) (-> v meta :pathedfn))
(throw-illegal "Cannot use pathed fn '" (:sym p) "' where navigator expected")
(valid-navigator? vv)
vv
:else
(magic-fail! "Var " (:sym p) " is not a navigator")
))
(instance? SpecialFormUse p)