add missing file
This commit is contained in:
parent
cbd3db5a75
commit
073dca1e98
1 changed files with 14 additions and 0 deletions
14
src/clj/com/rpl/specter/defnavhelpers.cljx
Normal file
14
src/clj/com/rpl/specter/defnavhelpers.cljx
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
(ns com.rpl.specter.defnavhelpers
|
||||
(:require [com.rpl.specter.impl :as i]))
|
||||
|
||||
(defn param-delta [i]
|
||||
(fn [^objects params params-idx]
|
||||
(aget params (+ params-idx i))
|
||||
))
|
||||
|
||||
(defn bound-params [path start-delta]
|
||||
(fn [^objects params params-idx]
|
||||
(if (i/params-needed-path? path)
|
||||
(i/bind-params* path params (+ params-idx start-delta))
|
||||
path
|
||||
)))
|
||||
Loading…
Reference in a new issue