sort-partial ( x y -- x' y' )

Vocabulary

math.extras.private

Inputs

x	an object
y	an object

Outputs

x'	an object
y'	an object

Definition

USING: kernel math ;

IN: math.extras.private

: sort-partial ( x y -- x' y' )
    2dup [ abs ] bi@ < [ swap ] when ; inline