sequences.extras: adding cut-slice*.

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 14aee5121aa43e47ca24722ab38d500cffb8aec9..708b3953154d2d063674b7e4ea21c6ea7ba120cf 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -122,6 +122,9 @@ IN: sequences.extras
         [ seq <slice> ] keep len or swap
     ] produce nip ; inline
 
+: cut-slice* ( seq n -- before after )
+    [ head-slice* ] [ tail-slice* ] 2bi ;
+
 : rotate ( seq n -- seq' )
     cut prepend ;