From 70cea243ca7d7374a6a37f136acdb96f277f522b Mon Sep 17 00:00:00 2001 From: oakes Date: Sun, 25 May 2014 16:58:06 -0400 Subject: [PATCH] Use update-fn! instead of swap! --- src/play_clj/core.clj | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj index 9cd0039..499c450 100644 --- a/src/play_clj/core.clj +++ b/src/play_clj/core.clj @@ -90,8 +90,9 @@ :input-listeners (input-listeners options execute-fn!) :ui-listeners (ui-listeners options execute-fn!)]) (execute-fn! on-show) - (->> (contact-listener @screen options execute-fn!) - (swap! screen assoc :contact-listener))) + (some->> (contact-listener @screen options execute-fn!) + (vector :contact-listener) + (update-fn! assoc))) :render (fn [d] (swap! screen #(assoc % :total-time (+ (:total-time %) d))) (execute-fn! on-render :delta-time d))