sequences: move last2 to the sequences vocab

[factor.git] / core / sequences / sequences.factor

diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index b4af2c55f130537f6b5a24dc35729a0749aa67f1..7b3478b3724494810a11a87c9081d3df6fff848e 100644 (file)
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -843,6 +843,9 @@ PRIVATE>
     index-of-last
     over 0 < [ bounds-error ] [ nth-unsafe ] if ; inline
 
+: last2 ( seq -- penultimate ultimate )
+    2 tail* first2 ; inline
+
 <PRIVATE
 
 : last-unsafe ( seq -- elt )