sequences.extras: update nrotate call

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 07dbaf4273b85460a98cd6c9ff5c5fe1b190dde0..782b7bea7358524759da0723e4296054ed5ba522 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -708,7 +708,7 @@ PRIVATE>
 : find-pred-loop ( ... i n seq quot: ( ... elt -- ... calc ? ) -- ... calc/f i/f elt/f )
     2pick < [
         [ nipd call ] 4keep
-        3 7 nrotates
+        3 7 0 nrotated
         [ [ 3drop ] 2dip rot ]
         [ 2drop [ 1 + ] 3dip find-pred-loop ] if
     ] [