mopping up some noobsauce

diff --git a/extra/roles/roles.factor b/extra/roles/roles.factor
index f9ce808eb8b5e8a113875f95a9d6be93d92c6b85..d54b4339a703a523641ab2ac8fc8531ada525b55 100644 (file)
--- 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 {