 
 (fact "`classic-interpreter` can have its :stacks set"
   (keys (:stacks classy)) => (contains
-    [:boolean :char :code :environment :error :exec :float :integer :log :print :return :string :unknown]
+    [:boolean :char :code :environment :error :exec :scalar :log :print :return :string :unknown]
     :in-any-order)
-  (:integer (:stacks (c/classic-interpreter :stacks {:integer '(8)}))) => '(8)
+  (:scalar (:stacks (c/classic-interpreter :stacks {:scalar '(8)}))) => '(8)
   (:boolean (:stacks (c/classic-interpreter :stacks {:boolean '(:test)}))) => '(:test))
 
 


(fact "push-item does not do type-checking"
  (u/get-stack (
    push-item (m/basic-interpreter :stacks {:integer '(1 2 3)}) :integer false)  :integer) =>
    '(false 1 2 3))





(fact "u/get-stack will return an empty list for an existing (but empty) stack"
  (u/get-stack just-basic :scalar) => '())


(fact "u/set-stack replaces a stack completely"
