From 9193b4fecb6b9f89eb4205ccbdd986450fc4e16c Mon Sep 17 00:00:00 2001
From: Chris Double <chris.double@double.co.nz>
Date: Sun, 18 Sep 2005 02:18:28 +0000
Subject: [PATCH] Changed callcc0 and callcc1 to use with-continuation.

---
 library/continuations.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/continuations.factor b/library/continuations.factor
index 6018ff6425..cfc4b3dff0 100644
--- a/library/continuations.factor
+++ b/library/continuations.factor
@@ -41,7 +41,7 @@ TUPLE: interp data call name catch ;
     r> call ; inline
 
 : callcc0 ( quot ++ | quot: cont -- | cont: ++ )
-    "use with-continuation instead" throw ;
+    with-continuation ;
 
 : callcc1 ( quot ++ obj | quot: cont -- | cont: obj ++ obj )
-    "use with-continuation instead" throw ;
+    with-continuation ;