unpack/pack ( 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

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