supporting ios.

desktop/src-common/advent/screens/rooms/castle_gate.clj

@@ -136,7 +136,6 @@
   (actions/walk-to entities :ego [245 90] :skip-type :end))
 
 (defn flip-coin [screen entities]
-  (println "here")
   (if (and (= 0 (rand-int 2))
            (not (get-in entities [:state :has-dropped-coin?]))
            (not (get-in entities [:state :bubba-gone?]))

desktop/src-common/advent/steam.clj

@@ -38,6 +38,7 @@
 (if has-steam?
   (eval
    '(do
+      (println "defining achievement fn")
      (defn achievement-fn [f achievement]
        (steamify
         (let [stats (atom nil)]