 
 M: hook-combination dispatch# drop 0 ;
 
-M: hook-combination method-declaration 2drop [ ] ;
-
 M: hook-generic extra-values drop 1 ;
 
 M: hook-generic effective-method

M: generic dispatch#
    "combination" word-prop dispatch# ;

GENERIC: method-declaration ( class generic -- quot )

M: generic method-declaration
    "combination" word-prop method-declaration ;

M: quotation engine>quot
    assumed get generic get method-declaration prepend ;

ERROR: no-method object generic ;



M: standard-combination dispatch# #>> ;

M: standard-combination next-method-quot*
    [
        single-next-method-quot
