Move unclip-last to sequences

2008-05-05 00:13:17 -05:00 · 2008-05-05 00:13:17 -05:00 · fa1938eda1
parent 234242e631
commit fa1938eda1
2 changed files with 3 additions and 2 deletions
--- 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 %
--- 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 ;