! Copyright (C) 2003, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs combinators combinators.private
-kernel kernel.private make namespaces sequences vectors ;
+USING: accessors assocs combinators combinators.private kernel
+kernel.private make namespaces sequences vectors ;
IN: continuations
: with-datastack ( stack quot -- new-stack )
PRIVATE>
-TUPLE: continuation
-{ data array }
-{ call callstack }
-{ retain array }
-{ name vector }
-{ catch vector } ;
+TUPLE: continuation data call retain name catch ;
C: <continuation> continuation