parent
87f8505736
commit
be2269e219
|
@ -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 arrays assocs combinators combinators.private
|
USING: accessors assocs combinators combinators.private kernel
|
||||||
kernel kernel.private make namespaces sequences vectors ;
|
kernel.private make namespaces sequences vectors ;
|
||||||
IN: continuations
|
IN: continuations
|
||||||
|
|
||||||
: with-datastack ( stack quot -- new-stack )
|
: with-datastack ( stack quot -- new-stack )
|
||||||
|
@ -35,12 +35,7 @@ SYMBOL: restarts
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
TUPLE: continuation
|
TUPLE: continuation data call retain name catch ;
|
||||||
{ data array }
|
|
||||||
{ call callstack }
|
|
||||||
{ retain array }
|
|
||||||
{ name vector }
|
|
||||||
{ catch vector } ;
|
|
||||||
|
|
||||||
C: <continuation> continuation
|
C: <continuation> continuation
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue