make-gen-quot ( quot effect -- quot )

Vocabulary

generators

Inputs

quot	a quotation
effect	an effect

Outputs

quot	a quotation

Word description

Prepares a quotation for use as a generator word.

Definition

USING: accessors generalizations kernel sequences ;

IN: generators

: make-gen-quot ( quot effect -- quot )
    in>> length [ ncurry <generator> ] 2curry ;