From 9503efa9a8585de40f35c9634c43a1e0142aa6aa Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Sat, 18 Apr 2009 01:38:39 -0500
Subject: [PATCH] working on sorting.slots

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

diff --git a/basis/sorting/slots/slots.factor b/basis/sorting/slots/slots.factor
index 9a0455c3a7..5b910cb621 100644
--- a/basis/sorting/slots/slots.factor
+++ b/basis/sorting/slots/slots.factor
@@ -9,7 +9,7 @@ IN: sorting.slots
 
 : short-circuit-comparator ( obj1 obj2 word --  comparator/? )
     execute( obj1 obj2 -- obj3 )
-    dup +eq+ eq? [ drop f ] when ; inline
+    dup +eq+ eq? [ drop f ] when ;
 
 : slot-comparator ( seq -- quot )
     [
@@ -17,12 +17,12 @@ IN: sorting.slots
         [ '[ [ _ execute( tuple -- value ) ] bi@ ] ] map concat
     ] [
         peek
-        '[ @ _ short-circuit-comparator ]
+        '[ _ call( obj1 obj2 -- obj3 obj4 ) _ short-circuit-comparator ]
     ] bi ;
 
 PRIVATE>
 
-MACRO: compare-slots ( sort-specs -- <=> )
+MACRO: compare-slots ( sort-specs -- quot )
     #! sort-spec: { accessors comparator }
     [ slot-comparator ] map '[ _ 2|| +eq+ or ] ;