sequences.extras: adding cut-slice*.

db4
John Benediktsson 2013-05-01 14:03:58 -07:00
parent b4de3d0a2f
commit 9243d39ef5
1 changed files with 3 additions and 0 deletions

View File

@ -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 ;