don't return exceptions as :value

clojure · Sep 29, 2010 · bf4713d · bf4713d
1 parent 4ca5636
commit bf4713d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/main/clojure/cemerick/nrepl.clj b/src/main/clojure/cemerick/nrepl.clj
@@ -165,7 +165,7 @@
           :read (fn [prompt exit] (read code-reader false exit))
           :caught (fn [#^Throwable e]
                     (swap! client-state-atom assoc :last-exception e)
-                    (reset! return ["error" e])
+                    (reset! return ["error" nil])
                     (if *print-stack-trace-on-error*
                       (.printStackTrace e *out*)
                       (prn (clojure.main/repl-exception e)))

diff --git a/src/test/clojure/cemerick/nrepl_test.clj b/src/test/clojure/cemerick/nrepl_test.clj
@@ -61,9 +61,9 @@
     (is (= history (repl-value "*1")))))
 
 (def-repl-test exceptions
-  (let [{:keys [out status value] :as f} (repl-receive "(throw (Exception. \"bad, bad code\"))")]
+  (let [{:keys [out status value] :as f} (repl-read "(throw (Exception. \"bad, bad code\"))")]
     (is (= "error" status))
-    (is (.contains value "bad, bad code"))
+    (is (nil? value))
     (is (.contains out "bad, bad code"))
     (is (= true (repl-value "(.contains (str *e) \"bad, bad code\")")))))