classes.mixin: better name for the type checking error

char-rename
Björn Lindqvist 2016-12-30 16:02:55 +01:00
parent d145548c44
commit a808ade3c1
2 changed files with 3 additions and 5 deletions

View File

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

View File

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