From 99505873e6e7409fdfdf0852b84e111b7994414b Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Fri, 13 Aug 2010 16:03:51 +0100 Subject: [PATCH] support invoking restarts from sldb --- swank.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/swank.R b/swank.R index 802b040..71d502e 100644 --- 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:invoke-nth-restart-for-emacs` <- function(io, sldbState, level, n) { + if(sldbState$level == level) { + invokeRestart(computeRestarts()[[n+1]]) + } +} -- 2.30.2