(define-memoized) ( word quot effect hashtable -- )

Vocabulary

memoize

Inputs

word	an object
quot	an object
effect	an object
hashtable	an object

Outputs

None

Definition

USING: kernel memoize.private words ;

IN: memoize

: (define-memoized) ( word quot effect hashtable -- )
    [ [ drop "memo-quot" set-word-prop ] ] dip [ [ 2drop ] ] dip
    [ "memoize" set-word-prop ] curry compose [
        [ [ dup "memoize" word-prop ] 2dip make-memoizer ] keep
        define-declared
    ] 3tri ;