From 2ebb23543634db7117c43d21a44d6452bd399cd6 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 26 Jan 2022 09:50:16 -0800 Subject: [PATCH] sequences.extras: using (each-index) --- 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 cc19f1e883..27d3b82653 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -359,7 +359,7 @@ PRIVATE> ] [ 3drop f ] if ; inline : map-index! ( ... seq quot: ( ... elt index -- ... newelt ) -- ... seq ) - over [ [ (map-each-index) ] dip collect ] keep ; inline + over [ [ (each-index) ] dip collect ] keep ; inline