Make sequence-view a wrapped-sequence

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

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index b94957ea83dd66acef8c7dbc44fcd7902fbef074..43df76fb9c265c7929b0ee47cee66d471d517530 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -217,11 +217,7 @@ M: wrapped-sequence length seq>> length ; inline
 INSTANCE: wrapped-sequence virtual-sequence
 TUPLE: sequence-view { seq sequence read-only } ;
 
-M: sequence-view virtual-exemplar seq>> ; inline
-M: sequence-view virtual@ seq>> ; inline
-M: sequence-view length seq>> length ; inline
-
-INSTANCE: sequence-view virtual-sequence
+INSTANCE: sequence-view wrapped-sequence
 
 ! A reversal of an underlying sequence.
 TUPLE: reversed < sequence-view ;