From b7c33a563bffa4b46ddf8a40d865aeee36e187d7 Mon Sep 17 00:00:00 2001 From: oakes Date: Mon, 1 Sep 2014 11:16:36 -0400 Subject: [PATCH] Get function directly from screen object --- src/play_clj/core.clj | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj index 6eff032..a83ac1c 100644 --- a/src/play_clj/core.clj +++ b/src/play_clj/core.clj @@ -553,7 +553,7 @@ of key-value pairs, which will be given to the function via its screen map. (run! my-other-screen :on-show) (run! my-other-screen :on-change-color :color :blue)" [screen-object fn-name & options] - (let [execute-fn! (-> screen-object :screen deref :execute-fn!) + (let [execute-fn! (:execute-fn! screen-object) screen-fn (-> screen-object :options (get fn-name))] (apply execute-fn! screen-fn options) nil))