sequences: add index-of-last

[factor.git] / extra / tensors / tensors.factor

diff --git a/extra/tensors/tensors.factor b/extra/tensors/tensors.factor
index ef2bc0ae708844fb1e74d645d345d22450c23d73..157a82e6a341eee9d52cd7b6cd335e6944860c80 100644 (file)
--- a/extra/tensors/tensors.factor
+++ b/extra/tensors/tensors.factor
@@ -465,7 +465,7 @@ PRIVATE>
     ! Compute the starting index
     / truncate dupd *
     ! Compute the ending index
-    swap over +
+    tuck +
     ! Take a slice
     rot <slice> ;