From 10d1bb84778054ccf4bd73c3c61ae67596c9f831 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 22 Jun 2022 15:16:14 -0500 Subject: [PATCH] sequences.extras: update nrotate call --- extra/sequences/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 07dbaf4273..782b7bea73 100644 --- 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 ] [ -- 2.34.1