From 7b48017cd1d64d2ba12449d98387c31c13a16fac Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 7 Aug 2018 16:52:51 -0400
Subject: [PATCH] sequences: Add cut-head and cut-tail.

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

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index cd3d5e0cbf..a1a844090a 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -1055,6 +1055,18 @@ PRIVATE>
 : trim-tail ( ... seq quot: ( ... elt -- ... ? ) -- ... newseq )
     (trim-tail) head ; inline
 
+: cut-head ( ... seq quot: ( ... elt -- ... ? ) -- ... head tail )
+    (trim-head) cut ; inline
+
+: cut-head-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... head-slice tail-slice )
+    (trim-head) cut-slice ; inline
+
+: cut-tail ( ... seq quot: ( ... elt -- ... ? ) -- ... head tail )
+    (trim-tail) cut ; inline
+
+: cut-tail-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... head-slice tail-slice )
+    (trim-tail) cut-slice ; inline
+
 : trim-slice ( ... seq quot: ( ... elt -- ... ? ) -- ... slice )
     [ trim-head-slice ] [ trim-tail-slice ] bi ; inline