renamings for read from/write to vm (exclamation point)

src/main/clojure/ifas2/beautify.clj

@@ -14,7 +14,7 @@
   (fn [url vm-map] url))
 
 (defmethod beautify-story-sequence :default [url vm-map]
-  [(read-text-from-vm vm-map)])
+  [(read-text-from-vm! vm-map)])
 
 (defn- standard-beautify-out 
   "Replaces a bunch of weird special characters often occuring within stories with something more suitable for voice interfaces (often empty)."

src/main/clojure/ifas2/core.clj

@@ -63,7 +63,7 @@
          vm-map     (create-zax-vm story-file url dump64)]
 
      (when next-command
-       (write-text-to-vm vm-map (beautify-in url next-command)))
+       (write-text-to-vm! vm-map (beautify-in url next-command)))
 
      (let [raw-texts (beautify-story-sequence url vm-map)
            raw-text  (str/join "\n" raw-texts)

src/main/clojure/ifas2/zax.clj

@@ -8,21 +8,21 @@
            (com.zaxsoft.zmachine ZCPU)
            (java.io File)))
 
-(defn destroy-zax-vm
+(defn destroy-zax-vm!
   "Destroys the given interpreter."
   [vm-map]
   (zax-quit (:cpu vm-map)))
 
-(defn read-text-from-vm
+(defn read-text-from-vm!
   "Given an interpreter, reads available text from it."
-  ([vm-map] (->> vm-map :zax-ui .getStoryTextStream (read-text-from-vm []) (apply str)))
+  ([vm-map] (->> vm-map :zax-ui .getStoryTextStream (read-text-from-vm! []) (apply str)))
   ([acc chan]
    (let [[txt port] (alts!! [(timeout 100) chan])]
      (if txt
-       (read-text-from-vm (conj acc txt) chan)
+       (read-text-from-vm! (conj acc txt) chan)
        acc))))
 
-(defn write-text-to-vm 
+(defn write-text-to-vm! 
   "Given an interpreter, writes the specified text to it"
   [vm-map text]
   (thread
@@ -42,8 +42,8 @@
         cpu    (ZCPU. zax-ui)]
     (.initialize cpu story-file-path)
     (.start cpu)
-    (when dump64
-      (read-text-from-vm {:zax-ui zax-ui}) ; discard initial output
+    (when dump64 ;;TODO: do we need to pause here to allow some time for the story to load?
+      (read-text-from-vm! {:zax-ui zax-ui}) ; discard initial output
       (zop-restore cpu
                    zax-ui
                    (.getAbsolutePath (base64-as-file dump64))))