math.functions: simpler without "simple-gcd".

db4
John Benediktsson 2012-04-05 10:31:06 -07:00
parent 4a29dafcdf
commit b240519bff
1 changed files with 1 additions and 7 deletions

View File

@ -113,13 +113,7 @@ PRIVATE>
MATH: fast-gcd ( x y -- d ) foldable
<PRIVATE
: simple-gcd ( x y -- d ) gcd nip ; inline
PRIVATE>
M: real fast-gcd simple-gcd ; inline
M: real fast-gcd gcd nip ; inline
M: bignum fast-gcd bignum-gcd ; inline