basis: use head-to-index and index-to-tail

[factor.git] / basis / math / matrices / matrices.factor

diff --git a/basis/math/matrices/matrices.factor b/basis/math/matrices/matrices.factor
index c811027ec5dcf8db0e3705fef9477869adf2ab3e..847ba1e0280322795a3c927bb6660e13c31a33e5 100644 (file)
--- a/basis/math/matrices/matrices.factor
+++ b/basis/math/matrices/matrices.factor
@@ -59,23 +59,23 @@ PREDICATE: zero-square-matrix < square-matrix
     dup <zero-matrix> ; inline
 
 <PRIVATE
-: (nth-from-end) ( n seq -- n )
+: (nth-from-tail) ( n seq -- n )
     length 1 - swap - ; inline flushable
 
 : nth-end ( n seq -- elt )
-    [ (nth-from-end) ] keep nth ; inline flushable
+    [ (nth-from-tail) ] keep nth ; inline flushable
 
 : nth-end-unsafe ( n seq -- elt )
-    [ (nth-from-end) ] keep nth-unsafe ; inline flushable
+    [ (nth-from-tail) ] keep nth-unsafe ; inline flushable
 
 : array-nth-end-unsafe ( n seq -- elt )
-    [ (nth-from-end) ] keep swap 2 fixnum+fast slot ; inline flushable
+    [ (nth-from-tail) ] keep swap 2 fixnum+fast slot ; inline flushable
 
 : set-nth-end ( elt n seq -- )
-    [ (nth-from-end) ] keep set-nth ; inline
+    [ (nth-from-tail) ] keep set-nth ; inline
 
 : set-nth-end-unsafe ( elt n seq -- )
-    [ (nth-from-end) ] keep set-nth-unsafe ; inline
+    [ (nth-from-tail) ] keep set-nth-unsafe ; inline
 PRIVATE>
 
 ! main-diagonal matrix