cocreate ( quot -- co )

Vocabulary

coroutines

Inputs

quot	a quotation with stack effect ( value -- )

Outputs

co	a coroutine

Word description

Create a new coroutine which will execute the quotation when resumed. The quotation will have an initial value (received from coresume) on the stack when first resumed. Coroutines should never terminate normally by "falling off" the end of the quotation; instead, they should call coterminate.

Definition

USING: accessors hashtables kernel make namespaces ;

IN: coroutines

: cocreate ( quot -- co )
    coroutine new dup current-coro associate [
        swapd , , \ with-variables ,
        "Coroutine has terminated illegally." , \ throw ,
    ] [ ] make [ >>resumecc ] [ >>originalcc ] bi ;