Fix how listeners are initialized

2014-05-25 15:28:14 -04:00
parent 63c316de64
commit 817d36e82e
2 changed files with 11 additions and 14 deletions
--- a/src/play_clj/core_basics.clj
+++ b/src/play_clj/core_basics.clj
@@ -130,12 +130,12 @@

 (defn ^:private add-input!
  [^InputProcessor p]
-  (let [^InputMultiplexer multi (input! :get-input-processor)]
+  (when-let [^InputMultiplexer multi (input! :get-input-processor)]
    (.addProcessor multi p)))

 (defn ^:private remove-input!
  [^InputProcessor p]
-  (let [^InputMultiplexer multi (input! :get-input-processor)]
+  (when-let [^InputMultiplexer multi (input! :get-input-processor)]
    (.removeProcessor multi p)))

 (defn sound*