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

factor: last iota -> <iota> fix.

char-rename
Doug Coleman 2017-06-02 17:39:40 -05:00
parent 32710df620
commit 48344ab55c
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/concurrency/combinators/combinators-tests.factor
View File

@ -41,7 +41,7 @@ IN: concurrency.combinators.tests
{ 20 } { 20 }
[ [
V{ } clone 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 length
] unit-test ] unit-test

2
basis/persistent/vectors/vectors-tests.factor
View File

@ -56,7 +56,7 @@ vectors math math.order ;
] unit-test ] unit-test
{ t } [ { 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 ] unit-test
{ t } [ { t } [

2
extra/sequences/extras/extras-tests.factor
View File

@ -103,7 +103,7 @@ IN: sequences.extras.tests
{ "lohel" } [ "hello" dup -12 rotate! ] unit-test { "lohel" } [ "hello" dup -12 rotate! ] unit-test
{ { } } [ { } [ ] map-concat ] 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" } [ "abc" [ 1string ] map-concat ] unit-test
{ "abc" } [ { 97 98 99 } [ 1string ] map-concat ] unit-test { "abc" } [ { 97 98 99 } [ 1string ] map-concat ] unit-test
{ { 97 98 99 } } [ "abc" [ 1string ] { } map-concat-as ] unit-test { { 97 98 99 } } [ "abc" [ 1string ] { } map-concat-as ] unit-test