sequences.extras: fix builds, stack checker doesn't like a word impl

nrotates might need another definition?

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index b9443bca8d20b69c797079e2a3c6e190754d5a08..7e46b24445b6f379296d1ad651e67a8ed8438056 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -704,7 +704,8 @@ 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 nrotates ! stack checker does not like this
+        7 nrot 7 nrot 7 nrot
         [ [ 3drop ] 2dip rot ]
         [ 2drop [ 1 + ] 3dip find-pred-loop ] if
     ] [