continuations: speed up init-catchstack.

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