classes.mixin: add-mixin-instance doesn't need to be generic
parent
6c73529525
commit
fe0f2902a0
|
@ -68,9 +68,7 @@ ERROR: check-mixin-class-error class ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
GENERIC# add-mixin-instance 1 ( class mixin -- )
|
: add-mixin-instance ( class mixin -- )
|
||||||
|
|
||||||
M: class add-mixin-instance
|
|
||||||
[ 2drop ] [ (add-mixin-instance) ] if-mixin-member? ;
|
[ 2drop ] [ (add-mixin-instance) ] if-mixin-member? ;
|
||||||
|
|
||||||
: remove-mixin-instance ( class mixin -- )
|
: remove-mixin-instance ( class mixin -- )
|
||||||
|
|
Loading…
Reference in New Issue