bug fixes.

desktop/src-common/advent/actions.clj

@@ -423,7 +423,7 @@
   (loop [zipper (make-zipper choices)]
     (let [selected-index (atom nil)
           node (zip/node zipper)
-          _ (clojure.pprint/pprint node)
+          
           dialogue-choices (filter first (partition 2 (:choices node)))]
       (run-action entities
                   (begin [this screen entities]
@@ -444,8 +444,7 @@
                             :skip))
 
       (let [zipper (nth-child zipper (inc (* 2 @selected-index)))
-            node (zip/node zipper)
-            _ (clojure.pprint/pprint node)]
+            node (zip/node zipper)]
         (when-let [run (:run node)]
           (run (-> dialogue-choices
                    (nth @selected-index)