From 76be998be0ba28137585ebe6cb738cd67dd43e67 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Wed, 11 Aug 2010 15:58:47 +0100
Subject: [PATCH] implement swank:throw-to-toplevel

---
 swank.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/swank.R b/swank.R
index e51abab..11d1135 100644
--- a/swank.R
+++ b/swank.R
@@ -203,3 +203,9 @@ writeSexpToString <- function(obj) {
 `swank:autodoc` <- function(rawForm, ...) {
   "No Arglist Information"
 }
+
+`swank:throw-to-toplevel` <- function() {
+  condition <- simpleError("Throw to toplevel")
+  class(condition) <- c("swankTopLevel", class(condition))
+  signalCondition(condition)
+}
-- 
2.39.5