fixnum-gcd ( x y -- d )

Vocabulary

math.private

Inputs

x	an object
y	an object

Outputs

d

an object

Definition

USING: kernel kernel.private math ;

IN: math.private

: fixnum-gcd ( x y -- d ) { fixnum fixnum } declare gcd nip ;