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

This reverts commit aa7f60ebbc.
2012-04-05 10:34:50 -07:00 · 2012-04-05 10:34:50 -07:00 · 214195e56a
parent b240519bff
commit 214195e56a
1 changed files with 7 additions and 1 deletions
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@ -113,7 +113,13 @@ PRIVATE>

 MATH: fast-gcd ( x y -- d ) foldable

-M: real fast-gcd gcd nip ; inline
+<PRIVATE
+
+: simple-gcd ( x y -- d ) gcd nip ; inline
+
+PRIVATE>
+
+M: real fast-gcd simple-gcd ; inline

 M: bignum fast-gcd bignum-gcd ; inline