From acf0017e4b8c4259a03fba03a90050b0e9cb0890 Mon Sep 17 00:00:00 2001 From: Ben Mabey Date: Thu, 18 Nov 2010 13:05:58 -0700 Subject: [PATCH] adds type hinting to Condition --- .../src/main/clojure/clojure/contrib/condition.clj | 2 +- .../clojure/contrib/condition/Condition.clj | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/condition/src/main/clojure/clojure/contrib/condition.clj b/modules/condition/src/main/clojure/clojure/contrib/condition.clj index 57525bf..0cf006b 100644 --- a/modules/condition/src/main/clojure/clojure/contrib/condition.clj +++ b/modules/condition/src/main/clojure/clojure/contrib/condition.clj @@ -120,7 +120,7 @@ http://groups.google.com/group/clojure/browse_frm/thread/da1285c538f22bb5"} (stack-trace-info (meta condition))) (defmethod stack-trace-info Throwable - [throwable] + [^Throwable throwable] [(str throwable) (.getStackTrace throwable) (.getCause throwable)]) diff --git a/modules/condition/src/main/clojure/clojure/contrib/condition/Condition.clj b/modules/condition/src/main/clojure/clojure/contrib/condition/Condition.clj index 1844965..cce218c 100644 --- a/modules/condition/src/main/clojure/clojure/contrib/condition/Condition.clj +++ b/modules/condition/src/main/clojure/clojure/contrib/condition/Condition.clj @@ -33,11 +33,11 @@ (defn -post-init "Adds :stack-trace to the condition. Drops the bottom 3 frames because they are always the same: implementation details of Condition and raise." - [this condition] + [^clojure.contrib.condition.Condition this condition] (swap! (.state this) assoc :stack-trace (into-array (drop 3 (.getStackTrace this))))) (defn -meta "Returns this object's metadata, the condition" - [this] + [^clojure.contrib.condition.Condition this] @(.state this)) -- 1.7.2