steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
generic

4
core/classes/mixin/mixin.factor
View File

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

4
core/generic/generic.factor
View File

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