From 90bc1bc0b57e95c6c3d3fb8e25517f7625815842 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 29 Aug 2008 10:37:07 -0500 Subject: [PATCH] use new accessor --- core/classes/algebra/algebra-tests.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/core/classes/algebra/algebra-tests.factor b/core/classes/algebra/algebra-tests.factor index d9f1a97299..b43c8f3336 100755 --- a/core/classes/algebra/algebra-tests.factor +++ b/core/classes/algebra/algebra-tests.factor @@ -4,7 +4,7 @@ tools.test vectors words quotations classes classes.algebra classes.private classes.union classes.mixin classes.predicate vectors definitions source-files compiler.units growable random stack-checker effects kernel.private sbufs math.order -classes.tuple ; +classes.tuple accessors ; IN: classes.algebra.tests \ class< must-infer @@ -204,7 +204,7 @@ UNION: z1 b1 c1 ; 10 [ [ ] [ 20 [ random-op ] [ ] replicate-as - [ infer effect-in [ random-class ] times ] keep + [ infer in>> [ random-class ] times ] keep call drop ] unit-test @@ -238,7 +238,7 @@ UNION: z1 b1 c1 ; 20 [ [ t ] [ 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