^integer ( x y -- z )

Vocabulary

math.functions.private

Inputs

x	an object
y	an object

Outputs

z

an object

Definition

USING: kernel math ;

IN: math.functions.private

: ^integer ( x y -- z )
    dup 0 >= [ ^n ] [ [ recip ] dip neg ^n ] if ; inline