 
 
 
-(defn place
+(defn put-onto
   "pushes a named scratch value onto a given stack"
   [[interpreter scratch] stack kwd]
   (let [item (kwd scratch)

    (consume-top-of :integer :as :int1)
    (consume-top-of :integer :as :int2)
    (calculate [:int1 :int2] #(+ %1 %2) :as :sum)
    (place :integer :sum)))

(fact "that int-adder thing actually does the thing"
  (get-stack (int-adder six-ints) :integer) => '(11 4 3 2 1))

  (vector updated scratch)))


(fact "`put-onto` will push the saved scratch value to the indicated stack in the interpreter"
  (let [integer-added (-> [six-ints {}]
                          (consume-top-of :integer :as :int1)
                          (consume-top-of :integer :as :int2)
                          (put-onto :boolean :int1))]      
    (get-stack-from-dslblob integer-added :boolean) => '(6)))


