# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1342291462 14400
# Node ID c1fba0f3ec5fcb8d854092d6ab2ea019377cf05e
# Parent  64208ea405c0c25f8a0553c815551bc4b5e55870
Minor cleanup.

diff -r 64208ea405c0 -r c1fba0f3ec5f src/caves/core.clj
--- a/src/caves/core.clj	Sat Jul 14 14:35:05 2012 -0400
+++ b/src/caves/core.clj	Sat Jul 14 14:44:22 2012 -0400
@@ -18,7 +18,7 @@
 
 (defn run-game [game screen]
   (loop [{:keys [input uis] :as game} game]
-    (when-not (empty? uis)
+    (when (seq uis)
       (if (nil? input)
         (do
           (draw-game game screen)
diff -r 64208ea405c0 -r c1fba0f3ec5f src/caves/entities/aspects/destructible.clj
--- a/src/caves/entities/aspects/destructible.clj	Sat Jul 14 14:35:05 2012 -0400
+++ b/src/caves/entities/aspects/destructible.clj	Sat Jul 14 14:44:22 2012 -0400
@@ -7,4 +7,4 @@
     (let [damaged-this (update-in this [:hp] - damage)]
       (if-not (pos? (:hp damaged-this))
         (update-in world [:entities] dissoc id)
-        (update-in world [:entities id] assoc damaged-this)))))
+        (assoc-in world [:entities id] damaged-this)))))