From ac830fc73e21599f4251b4d71384a785e42bb14b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 16 Jan 2008 00:21:19 +0000
Subject: [PATCH] added 'more: systems' doc

svn: r8341

original commit: b014545c7a7de0d7599a9383af830821f832ddb8
---
 collects/mzlib/control.ss | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/control.ss b/collects/mzlib/control.ss
index ca925ba..409d2a1 100644
--- a/collects/mzlib/control.ss
+++ b/collects/mzlib/control.ss
@@ -1,6 +1,8 @@
 (module control mzscheme
 
-  (provide fcontrol %
+  (provide abort
+           
+           fcontrol %
 
            control prompt control-at prompt-at 
            ;; `-at' variations expect a prompt tag
@@ -16,6 +18,13 @@
 
            new-prompt set cupto)
 
+  ;; ----------------------------------------
+
+  (define (abort . vals)
+    (abort-current-continuation 
+     (default-continuation-prompt-tag)
+     (lambda () (apply values vals))))
+
   ;; ----------------------------------------
   ;; Sitaram, PLDI'93
   ;;  The `%' here is compable with Sitaram & Felleisen, LSC'90,