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

parameterize navigators immediately if all params are constant (rather than factor)

Browse source
This commit is contained in:
Nathan Marz 2016-08-06 00:44:40 -04:00
parent 56da47aca5
commit b9cd024c38
1 changed files with 26 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -677,6 +677,18 @@
([] (must-cache-paths! true))
([v] (set-cell! MUST-CACHE-PATHS v)))
(defn constant-node? [node]
(cond (record? node) false
(number? node) true
(keyword? node) true
(string? node) true
(vector? node) (every? constant-node? node)
(set? node) (every? constant-node? node)
(map? node) (and (every? constant-node? (vals node))
(every? constant-node? (keys node)))
:else false
))
(defn- extract-original-code [p]
(cond
(instance? LocalSym p) (:sym p)
@ -881,14 +893,12 @@
(magic-fail! "Var " (:sym op) " is dynamic")
(cond
(or (root-params-nav? vv) (instance? ParamsNeededPath vv))
;;TODO: if all params are constants, then just bind the path right here
;;otherwise, add the params
;; - could extend this to see if it contains nested function calls which
;; are only on constants
(do
(swap! params-atom #(vec (concat % ps)))
(coerce-path vv)
)
(if (every? constant-node? ps)
(apply vv ps)
(do
(swap! params-atom #(vec (concat % ps)))
(coerce-path vv)
))
(and (fn? vv) (-> v meta :pathedfn))
;;TODO: update this to ignore args that aren't symbols or have :nopath
@ -927,13 +937,14 @@
))
(and (fn? vv) (-> vv meta :layerednav))
(do
;;TODO: if all args are constant then invoke it right here
(swap! params-atom conj (:code p))
(if (= (-> vv meta :layerednav) :lean)
lean-compiled-path-proxy
rich-compiled-path-proxy
))
(if (every? constant-node? ps)
(apply vv ps)
(do
(swap! params-atom conj (:code p))
(if (= (-> vv meta :layerednav) :lean)
lean-compiled-path-proxy
rich-compiled-path-proxy
)))
:else
(magic-fail! "Var " (:sym op) " must be either a parameterized "