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>
|
||||
|
||||
GENERIC# add-mixin-instance 1 ( class mixin -- )
|
||||
|
||||
M: class add-mixin-instance
|
||||
: add-mixin-instance ( class mixin -- )
|
||||
[ 2drop ] [ (add-mixin-instance) ] if-mixin-member? ;
|
||||
|
||||
: remove-mixin-instance ( class mixin -- )
|
||||
|
|
Loading…
Reference in New Issue