seems like almost everything is working.

2016-08-11 19:19:28 -07:00
parent 507e146877
commit a3536d7b0d
6 changed files with 43 additions and 33 deletions
--- a/desktop/src-common/advent/screens/safe.clj
+++ b/desktop/src-common/advent/screens/safe.clj
@@ -88,14 +88,12 @@
                               (cond (= [4 2 1 5 3] (:button-choices new-state))
                                     (do ((:success entities) (-> @(resolve 'advent.screens.scene/scene)
                                                                  :entities
-                                                                  deref
-                                                                  first))
+                                                                  deref))
                                         (close entities))
                                     (= 5 (count (:button-choices new-state)))
                                     (do ((:failure entities) (-> @(resolve 'advent.screens.scene/scene)
                                                                  :entities
-                                                                  deref
-                                                                  first))  
+                                                                  deref))  
                                         (close entities))
                                     :else
                                     new-state)))