Christophe Weblog Wiki Code Publications Music
implement swank:throw-to-toplevel
authorChristophe Rhodes <csr21@cantab.net>
Wed, 11 Aug 2010 14:58:47 +0000 (15:58 +0100)
committerChristophe Rhodes <csr21@cantab.net>
Wed, 11 Aug 2010 14:58:47 +0000 (15:58 +0100)
swank.R

diff --git a/swank.R b/swank.R
index e51abab..11d1135 100644 (file)
--- 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)
+}