if-mixin-member? ( class mixin true false -- )

Vocabulary

classes.mixin.private

Inputs

class	an object
mixin	an object
true	an object
false	an object

Outputs

None

Definition

USING: classes kernel sequences ;

IN: classes.mixin.private

: if-mixin-member? ( class mixin true false -- )
    [ 2dup class-members member-eq? ] 2dip if ; inline