From 214195e56a89e29659fb940c73d7deac5d387fb6 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 5 Apr 2012 10:34:50 -0700
Subject: [PATCH] Revert "math.functions: simpler without "simple-gcd"."

This reverts commit aa7f60ebbc9c87e09a9173e6916624e9c300052c.
---
 basis/math/functions/functions.factor | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index c13aa079c5..b56e2a4f2c 100644
--- 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