From 48344ab55c68a7bbda488464c4584de466f83db8 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 2 Jun 2017 17:39:40 -0500 Subject: [PATCH] factor: last iota -> fix. --- basis/concurrency/combinators/combinators-tests.factor | 2 +- basis/persistent/vectors/vectors-tests.factor | 2 +- extra/sequences/extras/extras-tests.factor | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/concurrency/combinators/combinators-tests.factor b/basis/concurrency/combinators/combinators-tests.factor index 6e3a8eb8ab..0054c6e9aa 100644 --- a/basis/concurrency/combinators/combinators-tests.factor +++ b/basis/concurrency/combinators/combinators-tests.factor @@ -41,7 +41,7 @@ IN: concurrency.combinators.tests { 20 } [ V{ } clone - 10 10 iota pick [ [ push ] [ push ] bi ] curry 2parallel-each + 10 10 pick [ [ push ] [ push ] bi ] curry 2parallel-each length ] unit-test diff --git a/basis/persistent/vectors/vectors-tests.factor b/basis/persistent/vectors/vectors-tests.factor index 7a0f13a484..c27b174aca 100644 --- a/basis/persistent/vectors/vectors-tests.factor +++ b/basis/persistent/vectors/vectors-tests.factor @@ -56,7 +56,7 @@ vectors math math.order ; ] unit-test { t } [ - 10000 >persistent-vector 752 [ ppop ] times dup length iota sequence= + 10000 >persistent-vector 752 [ ppop ] times dup length sequence= ] unit-test { t } [ diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor index 06cfdd3fd4..3996c92176 100644 --- a/extra/sequences/extras/extras-tests.factor +++ b/extra/sequences/extras/extras-tests.factor @@ -103,7 +103,7 @@ IN: sequences.extras.tests { "lohel" } [ "hello" dup -12 rotate! ] unit-test { { } } [ { } [ ] map-concat ] unit-test -{ V{ 0 0 1 0 1 2 } } [ 4 [ iota ] map-concat ] unit-test +{ V{ 0 0 1 0 1 2 } } [ 4 [ ] map-concat ] unit-test { "abc" } [ "abc" [ 1string ] map-concat ] unit-test { "abc" } [ { 97 98 99 } [ 1string ] map-concat ] unit-test { { 97 98 99 } } [ "abc" [ 1string ] { } map-concat-as ] unit-test