From 9243d39ef57644a7a1c9071e87c6131b758abca7 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 1 May 2013 14:03:58 -0700 Subject: [PATCH] sequences.extras: adding cut-slice*. --- extra/sequences/extras/extras.factor | 3 +++ 1 file changed, 3 insertions(+) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 14aee5121a..708b395315 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -122,6 +122,9 @@ IN: sequences.extras [ seq ] keep len or swap ] produce nip ; inline +: cut-slice* ( seq n -- before after ) + [ head-slice* ] [ tail-slice* ] 2bi ; + : rotate ( seq n -- seq' ) cut prepend ;