 
 (def *active-contexts* {})
 
+(def *defining-context-bindings* [])
+
 (defprotocol Successful
   (success? [r] "Returns true if the result r was 100% successful."))
 

        (catch Throwable t#
          (AssertionThrown (quote ~expr) t#))))

(defn- format-test [t]
  {:pre [(test? t)
         (vector? (:locals t))


(deftype Context [before after])

(deftype Suite [contexts children])

(deftype AssertionSuccess [assertion]
  Successful (success? [] true))
