simplify sorting.slots a bit

2009-04-03 17:38:21 -05:00 · 2009-04-03 17:38:21 -05:00 · 2e1652db6d
parent ce73c17c1d
commit 2e1652db6d
1 changed files with 1 additions and 1 deletions
--- a/basis/sorting/slots/slots.factor
+++ b/basis/sorting/slots/slots.factor
@ -20,7 +20,7 @@ PRIVATE>

 MACRO: compare-slots ( sort-specs -- <=> )
    #! sort-spec: { accessors comparator }
-    [ slot-comparator ] map '[ _ 2|| +eq+ or ] ;
+    '[ _ [ slot-comparator ] map 2|| +eq+ or ] ;

 : sort-by-slots ( seq sort-specs -- seq' )
    '[ _ compare-slots ] sort ;