From: nomennescio <nomennescio@factorcode.org>
Date: Thu, 5 Oct 2023 09:19:55 +0000 (+0200)
Subject: Added virtual-sequence sequence-view, which is a MVC view on the underlying sequence
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=8db2a809e773d1bb2e6df269e8034bb676c250ee

Added virtual-sequence sequence-view, which is a MVC view on the underlying sequence

For now untyped, but the intention is to use the typed version when all conflicts are resolvable.
---

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index 041a935415..c633f2e0cb 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -209,6 +209,14 @@ 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
+
+M: sequence-view virtual-exemplar seq>> ; inline
+M: sequence-view virtual@ seq>> ; inline
+M: sequence-view length seq>> length ; inline
+
 ! A reversal of an underlying sequence.
 TUPLE: reversed { seq read-only } ;