From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 11 Oct 2022 14:12:09 +0000 (-0500)
Subject: sequences: inline `element/index` and `index/element`
X-Git-Tag: 0.99~1054
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=374d4217f0820a2b6660e371ebe2b75280546f6f

sequences: inline `element/index` and `index/element`
---

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