From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Jul 2022 18:29:24 +0000 (-0500)
Subject: sequences: move defs higher
X-Git-Tag: 0.99~1265
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=a4dba053d8ed4a74c4a5f5a684468745900d0104

sequences: move defs higher
---

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index fe8b28cbfd..c0dac19c27 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -182,6 +182,10 @@ PRIVATE>
 : ?set-nth ( elt n seq -- )
     2dup bounds-check? [ set-nth-unsafe ] [ 3drop ] if ; inline
 
+: index-or-length ( seq n -- seq n' ) over length min ; inline
+
+: index-of-last ( seq -- n seq ) [ length 1 - ] keep ; inline
+
 : ?first ( seq -- elt/f ) 0 swap ?nth ; inline
 : ?second ( seq -- elt/f ) 1 swap ?nth ; inline
 : ?last ( seq -- elt/f )
@@ -247,10 +251,6 @@ M: slice virtual@ [ from>> + ] [ seq>> ] bi ; inline
 
 M: slice length [ to>> ] [ from>> ] bi - ; inline
 
-: index-or-length ( seq n -- seq n' ) over length min ; inline
-
-: index-of-last ( seq -- n seq ) [ length 1 - ] keep ; inline
-
 : head-slice ( seq n -- slice ) head-to-index <slice> ; inline
 
 : tail-slice ( seq n -- slice ) index-to-tail <slice> ; inline