continuations: add typing.

db4
John Benediktsson 2012-07-27 19:16:31 -07:00
parent c1269bc8a3
commit 87f8505736
1 changed files with 8 additions and 3 deletions

View File

@ -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