From 2938c9b017e04a4b01b2a84a3c9c7fdc187b9df7 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 16 Feb 2018 09:21:05 -0800
Subject: [PATCH] sequences.extras: making evens/odds mutable sequences.

---
 extra/sequences/extras/extras-tests.factor | 2 ++
 extra/sequences/extras/extras.factor       | 4 ----
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index a88c58512c..c8938560f8 100644
--- 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 fd020b6915..f8671a254d 100644
--- 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 -- )
-- 
2.34.1