next-method-quot* ( class generic combination -- quot )

Vocabulary

generic

Inputs

class	an object
generic	an object
combination	an object

Outputs

quot

an object

Definition

IN: generic

GENERIC: next-method-quot* ( class generic combination -- quot )

Methods

USING: classes generic generic.single kernel make quotations ;

M: single-combination next-method-quot*
    [
        2dup next-method [
            [
                [ picker % ] 3dip [ dup predicate-def % ] 2dip
                1quotation , [ inconsistent-next-method ] 2curry
                , \ if ,
            ] [ ] make
        ] [ 2drop f ] if*
    ] with-combination ;