make terminal-val return a direct-nav, add another benchmark case
This commit is contained in:
parent
194396f0f4
commit
16446373f1
3 changed files with 4 additions and 4 deletions
|
|
@ -69,6 +69,7 @@
|
|||
(compiled-select-any p data)
|
||||
(specter-dynamic-nested-get data :a :b :c)
|
||||
(get-in data [:a :b :c])
|
||||
(-> data (get :a) (get :b) (get :c))
|
||||
(-> data :a :b :c)
|
||||
(select-any [(keypath :a) (keypath :b) (keypath :c)] data)))
|
||||
|
||||
|
|
|
|||
|
|
@ -194,7 +194,7 @@
|
|||
(i/terminal* afn vals structure))))
|
||||
|
||||
|
||||
(defn terminal-val
|
||||
(defn ^:direct-nav terminal-val
|
||||
"Like `terminal` but specifies a val to set at the location regardless of
|
||||
the collected values or the value at the location."
|
||||
[v]
|
||||
|
|
|
|||
|
|
@ -672,12 +672,11 @@
|
|||
o))
|
||||
|
||||
|
||||
|
||||
(declare resolve-magic-code)
|
||||
|
||||
(defn all-static? [params]
|
||||
(every? (complement dynamic-param?) params))
|
||||
|
||||
(declare resolve-magic-code)
|
||||
|
||||
(defn resolve-dynamic-fn-arg [o]
|
||||
(cond (instance? DynamicFunction o)
|
||||
(let [op (resolve-dynamic-fn-arg (:op o))
|
||||
|
|
|
|||
Loading…
Reference in a new issue