Revert "sequences: swap stack arguments for start/start*/subseq?."

[factor.git] / extra / sequences / extras / extras-tests.factor

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index c4d919c4c69b94942f88f090c6c099cfb37b5510..28db9fb03f82b5093e5308a5ca53b490c70bae6d 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -226,11 +226,11 @@ IN: sequences.extras.tests
 
 { 3/10 } [ 10 iota [ 3 < ] count* ] unit-test
 
-{ { 0 } } [ "ABABA" "ABA" start-all ] unit-test
-{ { 0 2 } } [ "ABABA" "ABA" start-all* ] unit-test
-{ { 0 3 } } [ "ABAABA" "ABA" start-all ] unit-test
-{ 1 } [ "ABABA" "ABA" count-subseq ] unit-test
-{ 2 } [ "ABABA" "ABA" count-subseq* ] unit-test
+{ { 0 } } [ "ABA" "ABABA" start-all ] unit-test
+{ { 0 2 } } [ "ABA" "ABABA" start-all* ] unit-test
+{ { 0 3 } } [ "ABA" "ABAABA" start-all ] unit-test
+{ 1 } [ "ABA" "ABABA" count-subseq ] unit-test
+{ 2 } [ "ABA" "ABABA" count-subseq* ] unit-test
 
 { 120000 } [ { 10 20 30 40 50 60 } 1 [ * ] 3 reduce-from ] unit-test