inv-sort-with! ( seq quot: ( obj1 obj2 -- <=> ) -- )

Vocabulary

sorting.quick

Inputs

seq	an object
quot	a quotation with stack effect ( obj1 obj2 -- <=> )

Outputs

None

Definition

USING: kernel math.order ;

IN: sorting.quick

: inv-sort-with! ( seq quot: ( obj1 obj2 -- <=> ) -- )
    [ invert-comparison ] compose sort-with! ; inline