From 38a54cb8dfec591d9b044579a95d071a207e6be6 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 17 Oct 2011 20:37:36 -0700 Subject: [PATCH] math.functions: improve stack effect names for gcd*. --- basis/math/functions/functions.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor index 284d6fc8d9..241261e3bf 100644 --- 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 )