From 2bc45133af1320c55f8939ee762bbecd406b8432 Mon Sep 17 00:00:00 2001
From: nomennescio <nomennescio@factorcode.org>
Date: Tue, 10 Oct 2023 00:27:48 +0200
Subject: [PATCH] Add wrapped-sequence that require instances to have a slot
 'seq' that is a sequence

---
 core/sequences/sequences.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index f740ecaa09..b94957ea83 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -209,6 +209,12 @@ M: virtual-sequence new-sequence virtual-exemplar new-sequence ; inline
 
 INSTANCE: virtual-sequence sequence
 
+! all wrapped-sequence instances need to define a slot `seq` that is a sequence
+MIXIN: wrapped-sequence
+M: wrapped-sequence virtual-exemplar seq>> ; inline
+M: wrapped-sequence virtual@ seq>> ; inline
+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
-- 
2.34.1