diff --git a/ccw.core/src/ccw/debug/serverrepl.clj b/ccw.core/src/ccw/debug/serverrepl.clj index dcb27e7d..d2ce1210 100644 --- a/ccw.core/src/ccw/debug/serverrepl.clj +++ b/ccw.core/src/ccw/debug/serverrepl.clj @@ -21,19 +21,19 @@ v []] (if-not e v - (let [stack-traces (.getStackTrace e) - first-stack (aget stack-traces 0) - file-name (.getFileName first-stack) - line-number (.getLineNumber first-stack) - message (.getMessage e)] + (let [stack-traces (.getStackTrace e)] (recur (.getCause e) - (conj v (if (> (.length stack-traces) 0) - {"file-name" file-name - "line-number" line-number - "message" message} - {"file-name" "" - "line-number" 0 - "message" ""}))))))) + (conj v (if (> (alength stack-traces) 0) + (let [first-stack (aget stack-traces 0) + file-name (.getFileName first-stack) + line-number (.getLineNumber first-stack) + message (.getMessage e)] + {"file-name" file-name + "line-number" line-number + "message" message}) + {"file-name" "" + "line-number" 0 + "message" ""}))))))) (defmacro with-exception-serialization [& body]