From 99505873e6e7409fdfdf0852b84e111b7994414b Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
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.39.5