mod' ( x y -- n )

Vocabulary

math.extras.private

Inputs

x	an object
y	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: math.extras.private

: mod' ( x y -- n )
    [ mod ] keep over zero?
    [ drop ] [ 2dup [ sgn ] same? [ drop ] [ + ] if ] if ;