change ERROR: words from throw-foo back to foo.

[factor.git] / extra / roles / roles.factor

diff --git a/extra/roles/roles.factor b/extra/roles/roles.factor
index c6c74bbd46d594b48b1cd9ba7e6b05e87dff09a4..e32503e76bf6ae4423c2d3bc717619222a639ee2 100644 (file)
--- a/extra/roles/roles.factor
+++ b/extra/roles/roles.factor
@@ -36,7 +36,7 @@ PREDICATE: role < mixin-class
 
 : check-for-slot-overlap ( class roles-and-superclass slots -- )
     [ [ role-or-tuple-slot-names ] map concat ] [ slot-names ] bi* append
-    duplicates dup empty? [ 2drop ] [ throw-role-slot-overlap ] if ;
+    duplicates dup empty? [ 2drop ] [ role-slot-overlap ] if ;
 
 : roles>slots ( roles-and-superclass slots -- superclass slots' )
     [
@@ -44,7 +44,7 @@ PREDICATE: role < mixin-class
         dup length {
             { 0 [ drop tuple ] }
             { 1 [ first ] }
-            [ drop throw-multiple-inheritance-attempted ]
+            [ drop multiple-inheritance-attempted ]
         } case
         swap [ role-slots ] map concat
     ] dip append ;