make/0 ( 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 sequences.private ;

IN: memoize.private

: make/0 ( table quot effect -- quot )
    out>> [
        packer [
            [ 1 pick set-nth-unsafe t 0 rot set-nth-unsafe ]
            keep
        ] compose compose
        [ [ dup first-unsafe [ second-unsafe ] ] curry ] dip
        [ if ] curry compose
    ] keep unpacker compose ;