From 073dca1e98bd414ced6cdc3d70e56af1254d1639 Mon Sep 17 00:00:00 2001 From: Nathan Marz Date: Fri, 5 Aug 2016 16:21:49 -0400 Subject: [PATCH] add missing file --- src/clj/com/rpl/specter/defnavhelpers.cljx | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/clj/com/rpl/specter/defnavhelpers.cljx diff --git a/src/clj/com/rpl/specter/defnavhelpers.cljx b/src/clj/com/rpl/specter/defnavhelpers.cljx new file mode 100644 index 0000000..ac14b22 --- /dev/null +++ b/src/clj/com/rpl/specter/defnavhelpers.cljx @@ -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 + )))