Fix classes.algebra unit tests
parent
c99215667d
commit
48671cfca7
|
@ -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
|
||||
|
|
|
@ -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
|
||||
] [
|
||||
|
|
Loading…
Reference in New Issue