From a4dba053d8ed4a74c4a5f5a684468745900d0104 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 31 Jul 2022 13:29:24 -0500
Subject: [PATCH] sequences: move defs higher

---
 core/sequences/sequences.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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
-- 
2.34.1