make-lazy-quot ( quot effect -- quot )

Vocabulary

lazy

Inputs

quot	an object
effect	an object

Outputs

quot

an object

Definition

USING: accessors generalizations kernel sequences ;

IN: lazy

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