gen-coroutine ( quot gen -- co )

Vocabulary

generators

Inputs

quot	a quotation
gen	a generator

Outputs

co	a coroutine

Word description

Builds a coroutine from a quotation for use in a generator object. On termination of the quotation, the generator object will be marked as complete.

Definition

USING: accessors coroutines kernel ;

IN: generators

: gen-coroutine ( quot gen -- co )
    [ [ f ] ] dip [ state<< stop-generator ] curry compose
    compose cocreate ;