issue #358: Rename check-method and check-mixin-class TUPLE:s to ERROR:s.
parent
fbfa8543a1
commit
7441fa81fc
core
classes/mixin
generic
|
@ -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
|
||||
|
|
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue