diff options
-rw-r--r-- | libguile/numbers.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index f549193b5..3cdc7fd16 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4175,7 +4175,7 @@ scm_gcd (SCM x, SCM y) else if (SCM_REALP (y) && scm_is_integer (y)) goto handle_inexacts; else - SCM_WTA_DISPATCH_2 (g_gcd, x, y, SCM_ARG2, s_gcd); + return scm_wta_dispatch_2 (g_gcd, x, y, SCM_ARG2, s_gcd); } else if (SCM_REALP (x) && scm_is_integer (x)) { |