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

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

db4
John Benediktsson 2012-04-05 10:31:06 -07:00
parent 4a29dafcdf
commit b240519bff
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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