From fa1938eda19bc7c052c4d0911a1d7a6a175bd7be Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 5 May 2008 00:13:17 -0500
Subject: [PATCH] Move unclip-last to sequences

---
 core/generic/standard/engines/tuple/tuple.factor | 2 --
 core/sequences/sequences.factor                  | 3 +++
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/core/generic/standard/engines/tuple/tuple.factor b/core/generic/standard/engines/tuple/tuple.factor
index 7639d1d499..51ea4f8225 100644
--- a/core/generic/standard/engines/tuple/tuple.factor
+++ b/core/generic/standard/engines/tuple/tuple.factor
@@ -127,8 +127,6 @@ M: echelon-dispatch-engine engine>quot
     1 slot { tuple-layout } declare
     5 slot ; inline
 
-: unclip-last [ 1 head* ] [ peek ] bi ;
-
 M: tuple-dispatch-engine engine>quot
     [
         picker %
diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index a63e6d2835..fc4fa978fc 100755
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -670,6 +670,9 @@ PRIVATE>
 : unclip ( seq -- rest first )
     [ rest ] [ first ] bi ;
 
+: unclip-last ( seq -- rest last )
+    [ 1 head* ] [ peek ] bi ;
+
 : unclip-slice ( seq -- rest first )
     [ rest-slice ] [ first ] bi ;