seeing-implementors ( class -- seq )

Vocabulary

see.private

Inputs

class

an object

Outputs

seq

an object

Definition

USING: classes combinators.short-circuit generic kernel
sequences slots sorting ;

IN: see.private

: seeing-implementors ( class -- seq )
    dup implementors [ { [ reader? ] [ writer? ] } 1|| ] reject
    [ lookup-method ] with map sort ;