summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
081a80a)
Always emit a :debug-return message. The extra :sldb-return stuff in
swank.lisp is (I think) only needed for multiple threads.
}
sldbLoop <- function(io, sldbState, id) {
}
sldbLoop <- function(io, sldbState, id) {
- sendToEmacs(io, c(list(quote(`:debug`), id, sldbState$level), debuggerInfoForEmacs(sldbState)))
- sendToEmacs(io, list(quote(`:debug-activate`), id, sldbState$level, FALSE))
- while(TRUE) {
- dispatch(io, readPacket(io), sldbState)
- }
+ tryCatch({
+ sendToEmacs(io, c(list(quote(`:debug`), id, sldbState$level), debuggerInfoForEmacs(sldbState)))
+ sendToEmacs(io, list(quote(`:debug-activate`), id, sldbState$level, FALSE))
+ while(TRUE) {
+ dispatch(io, readPacket(io), sldbState)
+ }
+ }, finally=sendToEmacs(io, c(list(quote(`:debug-return`), id, sldbState$level, FALSE))))
}
debuggerInfoForEmacs <- function(sldbState, from=0, to=NULL) {
}
debuggerInfoForEmacs <- function(sldbState, from=0, to=NULL) {