From 374d4217f0820a2b6660e371ebe2b75280546f6f Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 11 Oct 2022 09:12:09 -0500 Subject: [PATCH] sequences: inline `element/index` and `index/element` --- core/sequences/sequences.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor index aaebd61708..f9aba3804b 100644 --- a/core/sequences/sequences.factor +++ b/core/sequences/sequences.factor @@ -454,10 +454,10 @@ PRIVATE> [ setup-3each ] dip compose ; inline : element/index ( i/f seq -- elt/f i/f ) - '[ [ _ nth ] [ f ] if* ] keep ; + '[ [ _ nth ] [ f ] if* ] keep ; inline : index/element ( i/f seq -- i/f elt/f ) - dupd '[ _ nth ] [ f ] if* ; + dupd '[ _ nth ] [ f ] if* ; inline : (accumulate) ( seq identity quot -- identity seq quot' ) swapd [ keepd ] curry ; inline -- 2.34.1