make-memoizer ( table quot effect -- quot )

Vocabulary

memoize.private

Inputs

table	an object
quot	an object
effect	an object

Outputs

quot

an object

Definition

USING: accessors kernel math sequences ;

IN: memoize.private

: make-memoizer ( table quot effect -- quot )
    dup in>> length zero? [ make/0 ] [ make/n ] if ;