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

db4
John Benediktsson 2011-10-17 20:37:36 -07:00
parent ac98269f53
commit 38a54cb8df
1 changed files with 1 additions and 1 deletions

View File

@ -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 )