From 7e5ab38ed10e93ce855b8ba06f0198d2649a4731 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Sat, 18 Apr 2009 02:04:58 -0500
Subject: [PATCH] use unclip-last-slice

---
 basis/sorting/slots/slots.factor | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/basis/sorting/slots/slots.factor b/basis/sorting/slots/slots.factor
index 5b910cb621..5fbf3d7af9 100644
--- 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>