diff options
author | Mark H Weaver <mhw@netris.org> | 2013-08-08 02:19:46 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-08-08 02:19:46 -0400 |
commit | 056e3470c4a0c18366c1da4f5052f36761824b70 (patch) | |
tree | 2780e7cce447da365f9057e1b728a47c45fa86d5 /libguile/numbers.c | |
parent | 789dd40b8b3c3dab230cbb407c8435b430d6a18a (diff) | |
download | guile-056e3470c4a0c18366c1da4f5052f36761824b70.tar.gz |
Eliminate use of deprecated 'SCM_WTA_DISPATCH_2' in numbers.c.
* libguile/numbers.c (scm_gcd): Use 'scm_wta_dispatch_2' not
'SCM_WTA_DISPATCH_2'.
Diffstat (limited to 'libguile/numbers.c')
-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)) { |