X-Git-Url: http://christophe.rhodes.io/gitweb/?p=swankr.git;a=blobdiff_plain;f=swank.R;h=11d11359fd4ce557b7bd28a2293150ad57c8e196;hp=e51abab78fa2490a7599a3327d3889d793fe9d34;hb=76be998be0ba28137585ebe6cb738cd67dd43e67;hpb=bcf9cc4d21759e1a5f1af6dfd2bd73aa78d2e238

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