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

working on sorting.slots

db4
Doug Coleman 2009-04-18 01:38:39 -05:00
parent 7902334b20
commit 9503efa9a8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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 ] ;