 
 (require 'clojure-mode)
 (require 'slime)
+(require 'newcomment)
+
+(defvar midje-running-fact nil)   ;; KLUDGE!
 
 (defvar midje-comments ";.;.")
 (defvar last-checked-midje-fact nil)

    (if successp (midje-after-compilation-check-fact))))

(defun midje-after-compilation-check-fact ()
  (slime-eval-async `(swank:eval-and-grab-output ,last-checked-midje-fact)
    'midje-insert-below-code-under-test))


(defun midje-check-fact ()
  "If on or near a Midje fact, check it with


  (interactive)
  (midje-clear-comments)
  (setq midje-running-fact t)
  (slime-compile-defun)
  ; Callback is slime-compilation-finished, then midje-after-compilation-check-fact
)
