math.functions: improve stack effect names for gcd*.

2011-10-17 20:37:36 -07:00 · 2011-10-17 20:37:36 -07:00 · 38a54cb8df
parent ac98269f53
commit 38a54cb8df
1 changed files with 1 additions and 1 deletions
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@ -114,7 +114,7 @@ PRIVATE>
 : gcd ( x y -- a d )
    [ 0 1 ] 2dip (gcd) dup 0 < [ neg ] when ; foldable

-: gcd* ( a b -- c )
+: gcd* ( x y -- d )
    (gcd*) dup 0 < [ neg ] when ; foldable

 : lcm ( a b -- c )