Don't redraw the screen more times than is necessary.

sjl · Jul 14, 2012 · 0fae7ff · 0fae7ff
1 parent f32a929
commit 0fae7ff
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/caves/core.clj b/src/caves/core.clj
@@ -19,9 +19,10 @@
 (defn run-game [game screen]
   (loop [{:keys [input uis] :as game} game]
     (when-not (empty? uis)
-      (draw-game game screen)
       (if (nil? input)
-        (recur (get-input (update-in game [:world] tick-all) screen))
+        (do
+          (draw-game game screen)
+          (recur (get-input (update-in game [:world] tick-all) screen)))
         (recur (process-input (dissoc game :input) input))))))
 
 (defn new-game []