gistfile1.clj

(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))}))