sequences.extras: adding cut-slice*.

2013-05-01 14:03:58 -07:00 · 2013-05-01 14:03:58 -07:00 · 9243d39ef5
parent b4de3d0a2f
commit 9243d39ef5
1 changed files with 3 additions and 0 deletions
--- 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 ;