Better error message for INSTANCE: if second arg is not a mixin

db4
Slava Pestov 2008-12-03 09:33:32 -06:00
parent e92a30e906
commit 8e69362512
2 changed files with 10 additions and 8 deletions

View File

@ -3,13 +3,13 @@
USING: slots arrays definitions generic hashtables summary io
kernel math namespaces make prettyprint prettyprint.config
sequences assocs sequences.private strings io.styles io.files
vectors words system splitting math.parser classes.tuple
continuations continuations.private combinators generic.math
classes.builtin classes compiler.units generic.standard vocabs
init kernel.private io.encodings accessors math.order
destructors source-files parser classes.tuple.parser
effects.parser lexer compiler.errors generic.parser
strings.parser ;
vectors words system splitting math.parser classes.mixin
classes.tuple continuations continuations.private combinators
generic.math classes.builtin classes compiler.units
generic.standard vocabs init kernel.private io.encodings
accessors math.order destructors source-files parser
classes.tuple.parser effects.parser lexer compiler.errors
generic.parser strings.parser ;
IN: debugger
GENERIC: error. ( error -- )
@ -327,3 +327,5 @@ M: bad-effect summary
M: bad-escape summary drop "Bad escape code" ;
M: bad-literal-tuple summary drop "Bad literal tuple" ;
M: check-mixin-class summary drop "Not a mixin class" ;

View File

@ -25,7 +25,7 @@ M: mixin-class rank-class drop 3 ;
bi
] if ;
TUPLE: check-mixin-class mixin ;
TUPLE: check-mixin-class class ;
: check-mixin-class ( mixin -- mixin )
dup mixin-class? [