Merge branch 'master' of git://factorcode.org/git/factor

db4
U-SLAVA-DFB8FF805\Slava 2008-07-05 05:03:40 -05:00
commit e1c8279127
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
] [