mopping up some noobsauce
parent
848cf3924f
commit
6688cf1c97
|
@ -8,8 +8,8 @@ IN: roles
|
||||||
ERROR: role-slot-overlap class slots ;
|
ERROR: role-slot-overlap class slots ;
|
||||||
ERROR: multiple-inheritance-attempted classes ;
|
ERROR: multiple-inheritance-attempted classes ;
|
||||||
|
|
||||||
PREDICATE: role < class
|
PREDICATE: role < mixin-class
|
||||||
{ [ mixin-class? ] [ "role-slots" word-prop >boolean ] } 1&& ;
|
"role-slots" word-prop >boolean ;
|
||||||
|
|
||||||
: parse-role-definition ( -- class superroles slots )
|
: parse-role-definition ( -- class superroles slots )
|
||||||
CREATE-CLASS scan {
|
CREATE-CLASS scan {
|
||||||
|
|
Loading…
Reference in New Issue