(push-alter-binding key f & args)
Pushes the result of (apply f old-value args) as current value of binding key
Source
(defn push-alter-binding
"Pushes the result of (apply f old-value args) as current value of binding key"
[key f & args]
(fn [plan]
[nil (update-in plan [:bindings key]
#(conj % (apply f (first %) args)))]))