1.2.0 permalink Arrow_down_16x16

calculate-restarts

swank.core

  • (calculate-restarts thrown)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/core.clj:162 top

(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)))
Vars in swank.core/calculate-restarts: array-map defn into let
Used in 0 other vars

Comments top

No comments for calculate-restarts. Log in to add a comment.