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

use unclip-last-slice

db4
Doug Coleman 2009-04-18 02:04:58 -05:00
parent 9503efa9a8
commit 7e5ab38ed1
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,13 +12,13 @@ IN: sorting.slots
dup +eq+ eq? [ drop f ] when ; dup +eq+ eq? [ drop f ] when ;
: slot-comparator ( seq -- quot ) : slot-comparator ( seq -- quot )
[ unclip-last-slice [
but-last-slice [
[ '[ [ _ execute( tuple -- value ) ] bi@ ] ] map concat '[ [ _ execute( tuple -- value ) ] bi@ ]
] map concat
] [ ] [
peek
'[ _ call( obj1 obj2 -- obj3 obj4 ) _ short-circuit-comparator ] '[ _ call( obj1 obj2 -- obj3 obj4 ) _ short-circuit-comparator ]
] bi ; ] bi* ;
PRIVATE> PRIVATE>