pack/unpack ( quot effect -- newquot )

Vocabulary

memoize.private

Inputs

quot	an object
effect	an object

Outputs

newquot

an object

Definition

USING: accessors kernel sequences ;

IN: memoize.private

: pack/unpack ( quot effect -- newquot )
    [ in>> packer ] [ out>> unpacker ] bi surround ;