steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

simplify sorting.slots a bit

db4
Doug Coleman 2009-04-03 17:38:21 -05:00
parent ce73c17c1d
commit 2e1652db6d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/sorting/slots/slots.factor
View File

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