(defn calculate-restarts [thrown]
(let [restarts [(make-restart :quit "QUIT" "Quit to the SLIME top level"
(fn [] (throw *debug-quit-exception*)))]
restarts (add-restart-if
(pos? *sldb-level*)
restarts
:abort "ABORT" (str "ABORT to SLIME level " (dec *sldb-level*))
(fn [] (throw *debug-abort-exception*)))
restarts (add-restart-if
(and (.getMessage thrown)
(.contains (.getMessage thrown) "BREAK"))
restarts
:continue "CONTINUE" (str "Continue from breakpoint")
(fn [] (throw *debug-continue-exception*)))
restarts (add-cause-restarts restarts thrown)]
(into (array-map) restarts)))
Used in 0 other vars
Source
swank/core.clj:162
top
Comments top
No comments for calculate-restarts. Log in to add a comment.