From 8de6baeae21ffa0559188938ded2f0cef8c1aee9 Mon Sep 17 00:00:00 2001 From: oakes Date: Wed, 11 Feb 2015 19:22:45 -0500 Subject: [PATCH] Add assertions --- src/play_clj/core.clj | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj index a42eb44..645b788 100644 --- a/src/play_clj/core.clj +++ b/src/play_clj/core.clj @@ -508,6 +508,12 @@ keywords and functions in pairs." (set-screen! my-game main-screen text-screen)" [^Game game-object & screen-objects] + (assert (isa? (type game-object) Game) + "Attempted to set screen with an invalid game object.") + (doseq [screen screen-objects] + (assert (every? #(fn? (get screen %)) + [:show :render :hide :pause :resize :resume]) + "Attempted to set an invalid screen.")) (let [run-fn! (fn [k & args] (doseq [screen screen-objects] (apply (get screen k) args)))]