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

use new accessor

db4
Doug Coleman 2008-08-29 10:37:07 -05:00
parent c6b28c0b3f
commit 90bc1bc0b5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4,7 +4,7 @@ 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 stack-checker effects kernel.private sbufs math.order random stack-checker effects kernel.private sbufs math.order
classes.tuple ; classes.tuple accessors ;
IN: classes.algebra.tests IN: classes.algebra.tests
\ class< must-infer \ class< must-infer
@ -204,7 +204,7 @@ UNION: z1 b1 c1 ;
10 [ 10 [
[ ] [ [ ] [
20 [ random-op ] [ ] replicate-as 20 [ random-op ] [ ] replicate-as
[ infer effect-in [ random-class ] times ] keep [ infer in>> [ random-class ] times ] keep
call call
drop drop
] unit-test ] unit-test
@ -238,7 +238,7 @@ UNION: z1 b1 c1 ;
20 [ 20 [
[ t ] [ [ t ] [
20 [ random-boolean-op ] [ ] replicate-as dup . 20 [ random-boolean-op ] [ ] replicate-as dup .
[ infer effect-in [ random-boolean ] replicate dup . ] keep [ infer in>> [ random-boolean ] replicate dup . ] keep
[ >r [ ] each r> call ] 2keep [ >r [ ] each r> call ] 2keep