 
 : define-declared* ( word def effect -- ) pick set-word define-declared ;
 
+TUPLE: fake-call-next-method ;
+
 TUPLE: fake-quotation seq ;
 
 GENERIC: >fake-quotations ( quot -- fake )

SYNTAX: `M:
    scan-param parsed
    scan-param parsed
    \ create-method-in parsed
    parse-definition*
    \ define* parsed ;


        { "INSTANCE:" POSTPONE: `INSTANCE: }
        { "SYNTAX:" POSTPONE: `SYNTAX: }
        { "inline" POSTPONE: `inline }
        { "call-next-method" POSTPONE: `call-next-method }
    } ;

: push-functor-words ( -- )
