sequences.extras: make rotate support negative n.

[factor.git] / extra / sequences / extras / extras.factor

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 6aca1b284c9f734d2732e0c87ca0ae1ae5be7863..b37ca03bd568e18575a4923dc3941256e06a28c5 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -196,7 +196,7 @@ ERROR: slices-don't-touch slice1 slice2 ;
     ] if ;
 
 : rotate ( seq n -- seq' )
-    cut prepend ;
+    dup 0 > [ cut ] [ abs cut* ] if prepend ;
 
 :: rotate! ( seq n -- )
     n seq bounds-check length :> end