Refactor reversed using sequence-view

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index c633f2e0cb207a2e1916548f9b040554accf383e..1a51b0dfcba277c59c061b2583eb617ee8b3c107 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -209,7 +209,6 @@ M: virtual-sequence new-sequence virtual-exemplar new-sequence ; inline
 
 INSTANCE: virtual-sequence sequence
 
-! TUPLE: sequence-view { seq sequence read-only } ;
 TUPLE: sequence-view { seq read-only } ;
 INSTANCE: sequence-view virtual-sequence
 
@@ -218,15 +217,11 @@ M: sequence-view virtual@ seq>> ; inline
 M: sequence-view length seq>> length ; inline
 
 ! A reversal of an underlying sequence.
-TUPLE: reversed { seq read-only } ;
+TUPLE: reversed < sequence-view ;
 
 C: <reversed> reversed
 
-M: reversed virtual-exemplar seq>> ; inline
 M: reversed virtual@ seq>> [ length swap - 1 - ] keep ; inline
-M: reversed length seq>> length ; inline
-
-INSTANCE: reversed virtual-sequence
 
 ! A slice of another sequence.
 TUPLE: slice