with-implementors ( class generic quot -- )

Vocabulary

generic

Inputs

class	an object
generic	an object
quot	an object

Outputs

None

Definition

USING: assocs classes.private kernel namespaces sequences ;

IN: generic

: with-implementors ( class generic quot -- )
    [ swap implementor-classes [ implementors-map get at ] map ]
    dip call ; inline