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