mega-cache-quot ( methods -- quot/f )

Vocabulary

generic.single

Inputs

methods

an object

Outputs

quot/f

an object

Definition

IN: generic.single

HOOK: mega-cache-quot combination ( methods -- quot/f )

Methods

USING: generic.hook generic.single generic.single.private
kernel.private quotations sequences ;

M: hook-combination mega-cache-quot
    1quotation picker [ lookup-method (execute) ] surround ;


USING: accessors generic.single generic.single.private
generic.standard namespaces sequences ;

M: standard-combination mega-cache-quot
    combination get #>> make-empty-cache \ mega-cache-lookup
    [ ] 4sequence ;