factor: last iota -> <iota> fix.

diff --git a/basis/concurrency/combinators/combinators-tests.factor b/basis/concurrency/combinators/combinators-tests.factor
index 6e3a8eb8abc29be74a8d31bdb2cca26b973ed6e3..0054c6e9aaab7c40cb4aadb14dc181215d9af4b8 100644 (file)
--- 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 <iota> 10 iota pick [ [ push ] [ push ] bi ] curry 2parallel-each
+    10 <iota> 10 <iota> 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 7a0f13a4842e6a26119d1d2851b7011ceafb9ce0..c27b174acaba7112da1d69eafc29c5c208a1372f 100644 (file)
--- 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 <iota> >persistent-vector 752 [ ppop ] times dup length iota sequence=
+    10000 <iota> >persistent-vector 752 [ ppop ] times dup length <iota> sequence=
 ] unit-test
 
 { t } [

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 06cfdd3fd42b0381682aa5f0c0b4d209211eed40..3996c92176a8107bb91793b1f37c73ae38287649 100644 (file)
--- 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> [ iota ] map-concat ] unit-test
+{ V{ 0 0 1 0 1 2 } } [ 4 <iota> [ <iota> ] 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