From: Christophe Rhodes <csr21@cantab.net>
Date: Wed, 11 Aug 2010 14:58:47 +0000 (+0100)
Subject: implement swank:throw-to-toplevel
X-Git-Url: http://christophe.rhodes.io/gitweb/?a=commitdiff_plain;h=76be998be0ba28137585ebe6cb738cd67dd43e67;p=swankr.git

implement swank:throw-to-toplevel
---

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)
+}