Merge up

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

diff --git a/core/classes/algebra/algebra.factor b/core/classes/algebra/algebra.factor
index f57c3de4dc22a867d2cc2c7d5188e810d68eb0e1..30697eb6a8661c09180275b0bfe208bcacb8c8d1 100644 (file)
--- a/core/classes/algebra/algebra.factor
+++ b/core/classes/algebra/algebra.factor
@@ -40,12 +40,12 @@ M: object normalize-class ;
 
 PRIVATE>
 
-GENERIC: forgotten-class? ( obj -- ? )
+GENERIC: classoid? ( obj -- ? )
 
-M: word forgotten-class? "forgotten" word-prop ;
-M: anonymous-union forgotten-class? members>> [ forgotten-class? ] any? ;
-M: anonymous-intersection forgotten-class? participants>> [ forgotten-class? ] any? ;
-M: anonymous-complement forgotten-class? class>> forgotten-class? ;
+M: word classoid? class? ;
+M: anonymous-union classoid? members>> [ classoid? ] all? ;
+M: anonymous-intersection classoid? participants>> [ classoid? ] all? ;
+M: anonymous-complement classoid? class>> classoid? ;
 
 : class<= ( first second -- ? )
     class<=-cache get [ (class<=) ] 2cache ;