From 73f2838c87fe6e5f5ecddc385aff4d14c85af57a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 1 Dec 2019 09:45:23 -0600
Subject: [PATCH] modern.slices: Add peek-from

---
 extra/modern/slices/slices.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/modern/slices/slices.factor b/extra/modern/slices/slices.factor
index 0eef47ade2..7129d12760 100644
--- a/extra/modern/slices/slices.factor
+++ b/extra/modern/slices/slices.factor
@@ -134,3 +134,6 @@ ERROR: subseq-expected-but-got-eof string n expected ;
     ] [
         nip [ [ length ] bi@ - ] keepd swap
     ] if ; inline
+
+: peek-from ( string n count -- string n slice )
+    [ drop ] [ drop ] [ + ] 2tri reach ?<slice> ;
\ No newline at end of file