Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
swankr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
support invoking restarts from sldb
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index 802b0409e49543ff3a7372128d26168aab26f6ed..71d502ecc03039de80f2de99401c8003d98cb963 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-261,3
+261,9
@@
writeSexpToString <- function(obj) {
`swank:debugger-info-for-emacs` <- function(io, sldbState, from, to) {
debuggerInfoForEmacs(sldbState, from=from, to=to)
}
`swank:debugger-info-for-emacs` <- function(io, sldbState, from, to) {
debuggerInfoForEmacs(sldbState, from=from, to=to)
}
+
+`swank:invoke-nth-restart-for-emacs` <- function(io, sldbState, level, n) {
+ if(sldbState$level == level) {
+ invokeRestart(computeRestarts()[[n+1]])
+ }
+}