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

[factor.git] / core / classes / algebra / algebra.factor

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index c4b9cfc7fe21b94239e86c8896ce586de988013a..ad386c176e0b20d3c3c2541a2ce24dde54184128 100644 (file)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -17,12 +17,12 @@ ERROR: not-classoids sequence ;
 
 : check-classoids ( members -- members )
     dup [ classoid? ] all?
-    [ [ classoid? ] reject throw-not-classoids ] unless ;
+    [ [ classoid? ] reject not-classoids ] unless ;
 
 ERROR: not-a-classoid object ;
 
 : check-classoid ( object -- object )
-    dup classoid? [ throw-not-a-classoid ] unless ;
+    dup classoid? [ not-a-classoid ] unless ;
 
 : <anonymous-union> ( members -- classoid )
     check-classoids
@@ -47,7 +47,7 @@ TUPLE: anonymous-complement { class read-only } ;
 INSTANCE: anonymous-complement classoid
 
 : <anonymous-complement> ( object -- classoid )
-    dup classoid? [ 1array throw-not-classoids ] unless
+    dup classoid? [ 1array not-classoids ] unless
     anonymous-complement boa ;
 
 M: anonymous-complement rank-class drop 3 ;
@@ -283,7 +283,7 @@ ERROR: topological-sort-failed ;
 
 : largest-class ( seq -- n elt )
     dup [ [ class< ] with any? not ] curry find-last
-    [ throw-topological-sort-failed ] unless* ;
+    [ topological-sort-failed ] unless* ;
 
 : sort-classes ( seq -- newseq )
     [ class-name ] sort-with >vector