Skip to content

Commit fd55e5f

Browse files
Cartmanisherebbatsov
authored andcommitted
Reset *skip-breaks* in dbg when first breakpoint
1 parent 4265a8b commit fd55e5f

File tree

2 files changed

+8
-1
lines changed

2 files changed

+8
-1
lines changed

CHANGELOG.md

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,9 @@
22

33
## master (unreleased)
44

5+
### Bugs Fixed
6+
* [#695](https://github.com/clojure-emacs/cider-nrepl/pull/695): Fix debugger quit for http handler functions
7+
58
## 0.25.10 (2021-04-08)
69

710
### Bugs Fixed

src/cider/nrepl/middleware/debug.clj

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -501,8 +501,12 @@ this map (identified by a key), and will `dissoc` it afterwards."}
501501
response with `read-debug-command`'."
502502
[coor val locals STATE__]
503503
(if-let [first-coor @(:session-id STATE__)]
504+
;; Check if the instrumented function is being evaluated
505+
;; from the root again.
504506
(when (= first-coor coor)
505-
(reset! (:skip STATE__) false))
507+
;; Clear any previously set skip state.
508+
(reset! (:skip STATE__) false)
509+
(skip-breaks! false))
506510
(reset! (:session-id STATE__) coor))
507511
(cond
508512
(skip-breaks? coor STATE__) val

0 commit comments

Comments
 (0)