From 48671cfca7c56aed6d34f2aa893f63d80bf32855 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sat, 5 Jul 2008 04:42:58 -0500 Subject: [PATCH] Fix classes.algebra unit tests --- core/classes/algebra/algebra-tests.factor | 3 ++- core/classes/builtin/builtin.factor | 3 +-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/core/classes/algebra/algebra-tests.factor b/core/classes/algebra/algebra-tests.factor index 05c254f225..78da6ee9b3 100755 --- 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 classes.private classes.union classes.mixin classes.predicate vectors definitions source-files compiler.units growable -random inference effects kernel.private sbufs math.order ; +random inference effects kernel.private sbufs math.order +classes.tuple ; IN: classes.algebra.tests \ class< must-infer diff --git a/core/classes/builtin/builtin.factor b/core/classes/builtin/builtin.factor index f349d0a126..b0e4754682 100644 --- 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 ] [