Shutdown agents on exit; fixes #94

slagyr · Jun 13, 2014 · 5b24e8c · 5b24e8c
1 parent 4368531
commit 5b24e8c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/clj/leiningen/spec.clj b/src/clj/leiningen/spec.clj
@@ -5,8 +5,10 @@
 (defn make-run-form [project speclj-args]
   (let [exit-fn (if (or (:eval-in-leiningen project)
                         (= (:eval-in project) :leiningen))
-                  `main/exit
-                  `System/exit)]
+                  'main/exit
+                  '(fn [code]
+                     (shutdown-agents)
+                     (System/exit code)))]
     `(let [failures# (speclj.cli/run ~@speclj-args)]
        (~exit-fn (min 255 failures#)))))