Browse files

adds type hinting to Condition

  • Loading branch information...
1 parent c38fa23 commit acf0017e4b8c4259a03fba03a90050b0e9cb0890 @bmabey committed Nov 18, 2010
@@ -120,7 +120,7 @@"}
(stack-trace-info (meta condition)))
(defmethod stack-trace-info Throwable
- [throwable]
+ [^Throwable throwable]
[(str throwable)
(.getStackTrace throwable)
(.getCause throwable)])
@@ -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))

0 comments on commit acf0017

Please sign in to comment.