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

2012-04-05 10:31:06 -07:00 · 2012-04-05 10:31:06 -07:00 · b240519bff
parent 4a29dafcdf
commit b240519bff
1 changed files with 1 additions and 7 deletions
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@ -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