Fix classes.algebra unit tests

db4
Slava Pestov 2008-07-05 04:42:58 -05:00
parent c99215667d
commit 48671cfca7
2 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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
] [