classes.mixin: add-mixin-instance doesn't need to be generic

char-rename
Björn Lindqvist 2016-11-26 09:16:32 +01:00
parent 6c73529525
commit fe0f2902a0
1 changed files with 1 additions and 3 deletions

View File

@ -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 -- )