--- 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)--- 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)))))