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