Fix classes.algebra unit tests

diff --git a/core/classes/algebra/algebra-tests.factor b/core/classes/algebra/algebra-tests.factor
index 05c254f225cb6a93279f8066b0afe53a04a3654b..78da6ee9b3984f8541a0e3e79d4c332807c3ba50 100755 (executable)
--- a/core/classes/algebra/algebra-tests.factor
+++ b/core/classes/algebra/algebra-tests.factor
@@ -3,7 +3,8 @@ kernel math namespaces parser prettyprint sequences strings
 tools.test vectors words quotations classes classes.algebra\r
 classes.private classes.union classes.mixin classes.predicate\r
 vectors definitions source-files compiler.units growable\r
-random inference effects kernel.private sbufs math.order ;\r
+random inference effects kernel.private sbufs math.order
+classes.tuple ;\r
 IN: classes.algebra.tests\r
 \r
 \ class< must-infer\r

diff --git a/core/classes/builtin/builtin.factor b/core/classes/builtin/builtin.factor
index f349d0a1264337af69e29219a61d210e516deaf6..b0e4754682b9f3029fe15034a723bb480d6ab477 100644 (file)
--- a/core/classes/builtin/builtin.factor
+++ b/core/classes/builtin/builtin.factor
@@ -43,8 +43,7 @@ M: builtin-class (classes-intersect?)
     } cond ;
 
 M: anonymous-intersection (flatten-class)
-    participants>>
-    participants [ flatten-builtin-class ] map
+    participants>> [ flatten-builtin-class ] map
     dup empty? [
         drop builtins get sift [ (flatten-class) ] each
     ] [