 
 
 (defn register-type
-  "Takes an Interpreter record, and a PushType record, and adds the
-  PushType to the :types collection in the Interpeter; adds the
-  type's :name as a new stack (if not already present); appends the 
-  type's :recognizer to the :router vector; adds
-  the type's internally defined instructions to the Interpreter's
-  registry automatically."
+  "Takes an Interpreter record, and a PushType record, and adds the PushType to the :types collection in the Interpeter; adds the type's :name as a new stack (if not already present); appends the type's :recognizer to the :router vector; adds the type's internally defined instructions to the Interpreter's registry automatically."
   [interpreter type]
   (let [old-types (:types interpreter)
         old-stacks (:stacks interpreter)



(defn register-inputs
  "Takes an Interpreter record, and a hashmap of key-value items;
  merges them into the :inputs map if the Interpreter."
  [interpreter values]
  (cond (vector? values)
    (reduce (partial register-input) interpreter values)



(defn register-module
  "Takes an Interpreter record, and a module; adds the module's internally defined instructions to the Interpreter's registry automatically."
  [interpreter module]
  (let [old-instructions (:instructions interpreter)]
    (-> interpreter
