continuations: add typing.
parent
c1269bc8a3
commit
87f8505736
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2003, 2011 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs combinators combinators.private kernel
|
||||
kernel.private make namespaces sequences vectors ;
|
||||
USING: accessors arrays assocs combinators combinators.private
|
||||
kernel kernel.private make namespaces sequences vectors ;
|
||||
IN: continuations
|
||||
|
||||
: with-datastack ( stack quot -- new-stack )
|
||||
|
@ -35,7 +35,12 @@ SYMBOL: restarts
|
|||
|
||||
PRIVATE>
|
||||
|
||||
TUPLE: continuation data call retain name catch ;
|
||||
TUPLE: continuation
|
||||
{ data array }
|
||||
{ call callstack }
|
||||
{ retain array }
|
||||
{ name vector }
|
||||
{ catch vector } ;
|
||||
|
||||
C: <continuation> continuation
|
||||
|
||||
|
|
Loading…
Reference in New Issue