From a34c113020d149f5961289f8276d0ba5ab984b7f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 6 Mar 2013 10:08:48 -0800
Subject: [PATCH] continuations: speed up init-catchstack.

---
 core/continuations/continuations.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/core/continuations/continuations.factor b/core/continuations/continuations.factor
index 65fe51182e..7187ecfec3 100644
--- a/core/continuations/continuations.factor
+++ b/core/continuations/continuations.factor
@@ -28,10 +28,14 @@ SYMBOL: restarts
 
 : catchstack ( -- catchstack ) catchstack* clone ; inline
 
-: set-catchstack ( catchstack -- )
-    >vector CONTEXT-OBJ-CATCHSTACK set-context-object ; inline
+: (set-catchstack) ( catchstack -- )
+    CONTEXT-OBJ-CATCHSTACK set-context-object ; inline
 
-: init-catchstack ( -- ) f set-catchstack ;
+: set-catchstack ( catchstack -- )
+    >vector (set-catchstack) ; inline
+
+: init-catchstack ( -- )
+    V{ } clone (set-catchstack) ;
 
 PRIVATE>