partial+ ( x y -- hi lo )

Vocabulary

math.extras.private

Inputs

x	an object
y	an object

Outputs

hi	an object
lo	an object

Definition

USING: kernel math ;

IN: math.extras.private

:: partial+ ( x y -- hi lo ) x y + dup x - :> yr y yr - ; inline