 ;    save the entire stack into `local` and clear it
 ;    raise an Exception if it's undefined
 
-; + `remember-calc [args fn :as local]
+; + `calculate [args fn :as local]
 ;    save the result of applying `fn` to the named `args` under key `local`
 
 ; + `remember-top [stackname :as local]`


;; collect the needs while we have the transaction

(defn needs-of
  [step]
  (let [cmd (first step)]
    (condp = cmd

  (fn?
    (macroexpand-1
      (def-pushdsl
        (calculate [] #(list 1 2 3 5 8) :as :fibs)
        (replace-stack :integer :fibs)))) => true)

;; integer_add
