steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/classes/algebra/algebra-tests.factor
View File

@ -3,7 +3,8 @@ kernel math namespaces parser prettyprint sequences strings
tools.test vectors words quotations classes classes.algebra tools.test vectors words quotations classes classes.algebra
classes.private classes.union classes.mixin classes.predicate classes.private classes.union classes.mixin classes.predicate
vectors definitions source-files compiler.units growable 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 IN: classes.algebra.tests
\ class< must-infer \ class< must-infer

3
core/classes/builtin/builtin.factor
View File

@ -43,8 +43,7 @@ M: builtin-class (classes-intersect?)
} cond ; } cond ;
M: anonymous-intersection (flatten-class) M: anonymous-intersection (flatten-class)
participants>> participants>> [ flatten-builtin-class ] map
participants [ flatten-builtin-class ] map
dup empty? [ dup empty? [
drop builtins get sift [ (flatten-class) ] each drop builtins get sift [ (flatten-class) ] each
] [ ] [