sort-pair ( a b -- c d )


Vocabulary
sorting

Inputs and outputs
aan object
ban object
can object
dan object


Word description
If a is greater than b, exchanges a with b.

Definition
USING: kernel math.order ;

IN: sorting

: sort-pair ( a b -- c d ) 2dup after? [ swap ] when ;