steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This reverts commit aa7f60ebbc.
db4
John Benediktsson 2012-04-05 10:34:50 -07:00
parent b240519bff
commit 214195e56a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/math/functions/functions.factor
View File

@ -113,7 +113,13 @@ PRIVATE>
MATH: fast-gcd ( x y -- d ) foldable 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 M: bignum fast-gcd bignum-gcd ; inline