issue : Rename check-method and check-mixin-class TUPLE:s to ERROR:s.

db4
Doug Coleman 2012-06-20 22:45:52 -07:00
parent fbfa8543a1
commit 7441fa81fc
2 changed files with 4 additions and 4 deletions
core
classes/mixin

View File

@ -18,11 +18,11 @@ M: mixin-class reset-class
M: mixin-class rank-class drop 8 ;
TUPLE: check-mixin-class class ;
ERROR: check-mixin-class-error class ;
: check-mixin-class ( mixin -- mixin )
dup mixin-class? [
\ check-mixin-class boa throw
check-mixin-class-error
] unless ;
<PRIVATE

View File

@ -89,11 +89,11 @@ ERROR: no-next-method method ;
: (call-next-method) ( method -- )
dup next-method-quot [ call ] [ no-next-method ] ?if ;
TUPLE: check-method class generic ;
ERROR: check-method-error class generic ;
: check-method ( classoid generic -- class generic )
2dup [ classoid? ] [ generic? ] bi* and [
\ check-method boa throw
check-method-error
] unless ; inline
: remake-generic ( generic -- )