sequences.extras: making evens/odds mutable sequences.

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index a88c58512c5ad710944187cfa1dd1e770a669728..c8938560f81c730712b4f587977fe32124965d50 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -150,10 +150,12 @@ tools.test vectors vocabs ;
 { { } } [ { } <evens> >array ] unit-test
 { { 0 2 } } [ 4 <iota> <evens> >array ] unit-test
 { { 0 2 4 } } [ 5 <iota> <evens> >array ] unit-test
+{ "bbddff" } [ "abcdef" <evens> [ 1 + ] map! seq>> ] unit-test
 
 { { } } [ { } <odds> >array ] unit-test
 { { 1 3 } } [ 5 <iota> <odds> >array ] unit-test
 { { 1 3 5 } } [ 6 <iota> <odds> >array ] unit-test
+{ "acceeg" } [ "abcdef" <odds> [ 1 + ] map! seq>> ] unit-test
 
 { 1 } [ { 1 7 3 7 6 3 7 } arg-max ] unit-test
 { 2 } [ { 0 1 99 } arg-max ] unit-test

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index fd020b6915fa4573f43a39d9c5a247eebcf32967..f8671a254d5be539e9ed25d87c6dfc8c8f2c51ee 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -392,8 +392,6 @@ M: evens virtual@ [ 2 * ] [ seq>> ] bi* ; inline
 
 M: evens virtual-exemplar seq>> ; inline
 
-INSTANCE: evens immutable-sequence
-
 INSTANCE: evens virtual-sequence
 
 TUPLE: odds { seq read-only } ;
@@ -406,8 +404,6 @@ M: odds virtual@ [ 2 * 1 + ] [ seq>> ] bi* ; inline
 
 M: odds virtual-exemplar seq>> ; inline
 
-INSTANCE: odds immutable-sequence
-
 INSTANCE: odds virtual-sequence
 
 : until-empty ( seq quot -- )