classes.mixin: better name for the type checking error
parent
d145548c44
commit
a808ade3c1
|
@ -370,7 +370,7 @@ M: bad-escape error.
|
|||
|
||||
M: bad-literal-tuple summary drop "Bad literal tuple" ;
|
||||
|
||||
M: check-mixin-class-error summary drop "Not a mixin class" ;
|
||||
M: not-a-mixin-class summary drop "Not a mixin class" ;
|
||||
|
||||
M: not-found-in-roots summary
|
||||
path>> "Cannot resolve vocab: " prepend ;
|
||||
|
|
|
@ -18,12 +18,10 @@ M: mixin-class reset-class
|
|||
|
||||
M: mixin-class rank-class drop 8 ;
|
||||
|
||||
ERROR: check-mixin-class-error class ;
|
||||
ERROR: not-a-mixin-class class ;
|
||||
|
||||
: check-mixin-class ( mixin -- mixin )
|
||||
dup mixin-class? [
|
||||
check-mixin-class-error
|
||||
] unless ;
|
||||
dup mixin-class? [ not-a-mixin-class ] unless ;
|
||||
|
||||
<PRIVATE
|
||||
|
||||
|
|
Loading…
Reference in New Issue