mopping up some noobsauce

2009-04-26 08:42:31 -05:00 · 2009-04-26 08:42:31 -05:00 · 6688cf1c97
parent 848cf3924f
commit 6688cf1c97
1 changed files with 2 additions and 2 deletions
--- a/extra/roles/roles.factor
+++ b/extra/roles/roles.factor
@ -8,8 +8,8 @@ IN: roles
 ERROR: role-slot-overlap class slots ;
 ERROR: multiple-inheritance-attempted classes ;

-PREDICATE: role < class
-    { [ mixin-class? ] [ "role-slots" word-prop >boolean ] } 1&& ;
+PREDICATE: role < mixin-class
+    "role-slots" word-prop >boolean ;

 : parse-role-definition ( -- class superroles slots )
    CREATE-CLASS scan {