hook-combination

Vocabulary

generic.hook

Class description

Performs hook method combination . See HOOK:.

See also

standard-combination

Definition

USING: generic.single ;

IN: generic.hook

TUPLE: hook-combination < single-combination var ;

Methods

USING: generic.hook generic.single kernel ;

M: hook-combination dispatch# drop 0 ;


USING: accessors generic generic.hook kernel namespaces words ;

M: hook-combination make-consult-quot
    drop [ drop ] 2dip
    [ "combination" word-prop var>> swap ] keep
    [ execute ] curry [ [ call swap ] 2curry ] dip
    [ with-variable ] curry compose ;


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.hook generic.single kernel namespaces ;

M: hook-combination picker combination get var>> [ get ] curry ;