steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

continuations: speed up init-catchstack.

db4
John Benediktsson 2013-03-06 10:08:48 -08:00
parent cadde9117c
commit a34c113020
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/continuations/continuations.factor
View File

@ -28,10 +28,14 @@ SYMBOL: restarts
: catchstack ( -- catchstack ) catchstack* clone ; inline : catchstack ( -- catchstack ) catchstack* clone ; inline
: set-catchstack ( catchstack -- ) : (set-catchstack) ( catchstack -- )
>vector CONTEXT-OBJ-CATCHSTACK set-context-object ; inline 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> PRIVATE>