 M: generic dispatch#
     "combination" word-prop dispatch# ;
 
-M: quotation engine>quot ;
+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: hook-combination dispatch# drop 0 ;

M: hook-generic extra-values drop 1 ;

M: hook-generic effective-method


M: standard-combination dispatch# #>> ;

M: standard-combination method-declaration
    dispatch# object <array> swap prefix [ declare ] curry [ ] like ;

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