reveal-method ( method classes generic -- )

Vocabulary

generic

Inputs

method	an object
classes	an object
generic	an object

Outputs

None

Definition

USING: assocs kernel sequences sets ;

IN: generic

: reveal-method ( method classes generic -- )
    [ [ [ adjoin ] with each ] with-implementors ]
    [ [ set-at ] with-methods ] 2bi ;