sorting.slots: help lint
parent
bb06e98dfb
commit
2979360d48
|
@ -6,6 +6,8 @@ IN: sorting.slots
|
|||
|
||||
HELP: compare-slots
|
||||
{ $values
|
||||
{ "obj1" object }
|
||||
{ "obj2" object }
|
||||
{ "sort-specs" "a sequence of accessors ending with a comparator" }
|
||||
{ "<=>" { $link +lt+ } " " { $link +eq+ } " or " { $link +gt+ } }
|
||||
}
|
||||
|
@ -27,7 +29,7 @@ HELP: sort-by
|
|||
" T{ sort-me f 2 3 } T{ sort-me f 3 2 }"
|
||||
" T{ sort-me f 4 3 } T{ sort-me f 2 1 }"
|
||||
"}"
|
||||
"{ { a>> <=> } { b>> >=< } } sort-by-slots ."
|
||||
"{ { a>> <=> } { b>> >=< } } sort-by ."
|
||||
"{\n T{ sort-me { a 2 } { b 3 } }\n T{ sort-me { a 2 } { b 1 } }\n T{ sort-me { a 3 } { b 2 } }\n T{ sort-me { a 4 } { b 3 } }\n}"
|
||||
}
|
||||
} ;
|
||||
|
|
Loading…
Reference in New Issue