use unclip-last-slice

2009-04-18 02:04:58 -05:00 · 2009-04-18 02:04:58 -05:00 · 7e5ab38ed1
parent 9503efa9a8
commit 7e5ab38ed1
1 changed files with 5 additions and 5 deletions
--- a/basis/sorting/slots/slots.factor
+++ b/basis/sorting/slots/slots.factor
@ -12,13 +12,13 @@ IN: sorting.slots
    dup +eq+ eq? [ drop f ] when ;

 : slot-comparator ( seq -- quot )
-    [
-        but-last-slice
-        [ '[ [ _ execute( tuple -- value ) ] bi@ ] ] map concat
+    unclip-last-slice [
+        [
+            '[ [ _ execute( tuple -- value ) ] bi@ ]
+        ] map concat
    ] [
-        peek
        '[ _ call( obj1 obj2 -- obj3 obj4 ) _ short-circuit-comparator ]
-    ] bi ;
+    ] bi* ;

 PRIVATE>