From b932ddfdf4ae65b429b0f594d290226476050101 Mon Sep 17 00:00:00 2001 From: Remington Covert Date: Wed, 22 Apr 2015 17:52:52 -0700 Subject: [PATCH] hopefully fixes ransition problem. --- desktop/src-common/advent/screens/scene.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/desktop/src-common/advent/screens/scene.clj b/desktop/src-common/advent/screens/scene.clj index 10034c29..57a03a9a 100644 --- a/desktop/src-common/advent/screens/scene.clj +++ b/desktop/src-common/advent/screens/scene.clj @@ -544,7 +544,8 @@ (defscreen scene :on-timer (fn [screen [entities]] - ((get-in entities [:room :timers (:id screen) 2]) screen entities)) + (when-let [timer-fn (get-in entities [:room :timers (:id screen) 2])] + (timer-fn screen entities))) :on-show (fn [screen entities]