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

---
 basis/math/functions/functions.factor | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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