gistfile1.txt

(defsignal inc-a [a :a] :a
  (+ a 1))

;;should generate:

(defn inc-a [state_unique_blah]
  (let [a (get-in state_unique_blah [:a])]
     (+ a 1))

;;next, I'll rework it to generate something more like

(defn inc-a [state_unique_blah]
  {:a (let [a (get-in state_unique_blah [:a])]
     (+ a 1))})

;;or maybe

(defn inc-a [state_unique_blah]
  (conj state_unique_blah {:a (let [a (get-in state_unique_blah [:a])]
     (+ a 1))}))