 : make/n ( table quot effect -- quot )
     [ unpack/pack '[ _ _ cache ] ] keep pack/unpack ;
 
-: make/1 ( table quot effect -- quot )
-    out>> [ packer compose '[ _ _ cache ] ] keep
-    unpacker compose ;
-
 : make/0 ( table quot effect -- quot )
     out>> [
         packer '[

! Copyright (C) 2007, 2010 Slava Pestov, Daniel Ehrenberg.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs combinators definitions effects
effects.parser fry hashtables.identity kernel math sequences
sequences.private words ;
IN: memoize

<PRIVATE

    ] keep unpacker compose ;

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

PRIVATE>

