From 26bf892e0464f562e0d01961f06e494e3e2bcc12 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 25 Jan 2022 13:51:12 -0800 Subject: [PATCH] sequences.extras: fix map-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 27d3b82653..cc19f1e883 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 [ [ (each-index) ] dip collect ] keep ; inline + over [ [ (map-each-index) ] dip collect ] keep ; inline