X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fsequences%2Fextras%2Fextras.factor;h=fbe65dc2ee477ef1e8bcbed358451a3d777c3b9c;hp=24561f91460863cbd2daa829e5fb54385b1e0588;hb=7ce33839919485fa70f2ac825543a73bbb27725c;hpb=46a70cb9022b0b2f381a218ab2a2ae30774df277

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 24561f9146..fbe65dc2ee 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -800,3 +800,14 @@ INSTANCE: step-slice virtual-sequence
         new-resizable
         [ [ push ] curry compose 3nested-each ] keep
     ] keep like ; inline
+
+TUPLE: virtual-zip-index seq ;
+
+C: <zip-index> virtual-zip-index
+
+M: virtual-zip-index length seq>> length ; inline
+
+M: virtual-zip-index nth-unsafe
+    over [ seq>> nth-unsafe ] [ 2array ] bi* ; inline
+
+INSTANCE: virtual-zip-index immutable-sequence