[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 04/47: Don't return expressions from void functions in n
From: |
Andy Wingo |
Subject: |
[Guile-commits] 04/47: Don't return expressions from void functions in numbers.c |
Date: |
Sun, 22 May 2016 18:23:03 +0000 (UTC) |
wingo pushed a commit to branch master
in repository guile.
commit 30db824b923ba9cdb3dc1783af03f9b164a87f6e
Author: Mark H Weaver <address@hidden>
Date: Wed Feb 18 16:32:21 2015 -0500
Don't return expressions from void functions in numbers.c
Although popular compilers allow it as long as the expression is of type
void, it violates C99 and some compilers choke on it.
* libguile/numbers.c (scm_euclidean_divide, scm_floor_divide)
(scm_ceiling_divide, scm_truncate_divide, scm_centered_divide)
(scm_round_divide): Don't use the return statement with an expression
from functions with return type void.
---
libguile/numbers.c | 246 +++++++++++++++++++++++-----------------------------
1 file changed, 108 insertions(+), 138 deletions(-)
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 4f740c5..9cc72d2 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -1,6 +1,4 @@
-/* Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
- * 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012,
- * 2013, 2014 Free Software Foundation, Inc.
+/* Copyright (C) 1995-2015 Free Software Foundation, Inc.
*
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories
* and Bellcore. See scm_divide.
@@ -1173,9 +1171,9 @@ void
scm_euclidean_divide (SCM x, SCM y, SCM *qp, SCM *rp)
{
if (scm_is_false (scm_negative_p (y)))
- return scm_floor_divide (x, y, qp, rp);
+ scm_floor_divide (x, y, qp, rp);
else
- return scm_ceiling_divide (x, y, qp, rp);
+ scm_ceiling_divide (x, y, qp, rp);
}
static SCM scm_i_inexact_floor_quotient (double x, double y);
@@ -1549,7 +1547,6 @@ scm_floor_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_inum2big (qq);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
{
@@ -1584,15 +1581,14 @@ scm_floor_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = SCM_I_MAKINUM (-1);
*rp = scm_i_normbig (r);
}
- return;
}
else if (SCM_REALP (y))
- return scm_i_inexact_floor_divide (xx, SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_floor_divide (xx, SCM_REAL_VALUE (y), qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_floor_divide (x, y, qp, rp);
+ scm_i_exact_rational_floor_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
- s_scm_floor_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
+ s_scm_floor_divide, qp, rp);
}
else if (SCM_BIGP (x))
{
@@ -1618,7 +1614,6 @@ scm_floor_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_normbig (q);
*rp = scm_i_normbig (r);
}
- return;
}
else if (SCM_BIGP (y))
{
@@ -1629,41 +1624,40 @@ scm_floor_divide (SCM x, SCM y, SCM *qp, SCM *rp)
scm_remember_upto_here_2 (x, y);
*qp = scm_i_normbig (q);
*rp = scm_i_normbig (r);
- return;
}
else if (SCM_REALP (y))
- return scm_i_inexact_floor_divide
- (scm_i_big2dbl (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_floor_divide (scm_i_big2dbl (x), SCM_REAL_VALUE (y),
+ qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_floor_divide (x, y, qp, rp);
+ scm_i_exact_rational_floor_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
- s_scm_floor_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
+ s_scm_floor_divide, qp, rp);
}
else if (SCM_REALP (x))
{
if (SCM_REALP (y) || SCM_I_INUMP (y) ||
SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_inexact_floor_divide
- (SCM_REAL_VALUE (x), scm_to_double (y), qp, rp);
+ scm_i_inexact_floor_divide (SCM_REAL_VALUE (x), scm_to_double (y),
+ qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
- s_scm_floor_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
+ s_scm_floor_divide, qp, rp);
}
else if (SCM_FRACTIONP (x))
{
if (SCM_REALP (y))
- return scm_i_inexact_floor_divide
- (scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_floor_divide
+ (scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
else if (SCM_I_INUMP (y) || SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_exact_rational_floor_divide (x, y, qp, rp);
+ scm_i_exact_rational_floor_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
- s_scm_floor_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG2,
+ s_scm_floor_divide, qp, rp);
}
else
- return two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG1,
- s_scm_floor_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_floor_divide, x, y, SCM_ARG1,
+ s_scm_floor_divide, qp, rp);
}
static void
@@ -2090,7 +2084,6 @@ scm_ceiling_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_inum2big (qq);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
{
@@ -2136,15 +2129,14 @@ scm_ceiling_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = SCM_INUM1;
*rp = scm_i_normbig (r);
}
- return;
}
else if (SCM_REALP (y))
- return scm_i_inexact_ceiling_divide (xx, SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_ceiling_divide (xx, SCM_REAL_VALUE (y), qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_ceiling_divide (x, y, qp, rp);
+ scm_i_exact_rational_ceiling_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
- s_scm_ceiling_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
+ s_scm_ceiling_divide, qp, rp);
}
else if (SCM_BIGP (x))
{
@@ -2170,7 +2162,6 @@ scm_ceiling_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_normbig (q);
*rp = scm_i_normbig (r);
}
- return;
}
else if (SCM_BIGP (y))
{
@@ -2181,41 +2172,40 @@ scm_ceiling_divide (SCM x, SCM y, SCM *qp, SCM *rp)
scm_remember_upto_here_2 (x, y);
*qp = scm_i_normbig (q);
*rp = scm_i_normbig (r);
- return;
}
else if (SCM_REALP (y))
- return scm_i_inexact_ceiling_divide
- (scm_i_big2dbl (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_ceiling_divide (scm_i_big2dbl (x), SCM_REAL_VALUE (y),
+ qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_ceiling_divide (x, y, qp, rp);
+ scm_i_exact_rational_ceiling_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
- s_scm_ceiling_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
+ s_scm_ceiling_divide, qp, rp);
}
else if (SCM_REALP (x))
{
if (SCM_REALP (y) || SCM_I_INUMP (y) ||
SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_inexact_ceiling_divide
- (SCM_REAL_VALUE (x), scm_to_double (y), qp, rp);
+ scm_i_inexact_ceiling_divide (SCM_REAL_VALUE (x), scm_to_double (y),
+ qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
- s_scm_ceiling_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
+ s_scm_ceiling_divide, qp, rp);
}
else if (SCM_FRACTIONP (x))
{
if (SCM_REALP (y))
- return scm_i_inexact_ceiling_divide
+ scm_i_inexact_ceiling_divide
(scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
else if (SCM_I_INUMP (y) || SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_exact_rational_ceiling_divide (x, y, qp, rp);
+ scm_i_exact_rational_ceiling_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
- s_scm_ceiling_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG2,
+ s_scm_ceiling_divide, qp, rp);
}
else
- return two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG1,
- s_scm_ceiling_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_ceiling_divide, x, y, SCM_ARG1,
+ s_scm_ceiling_divide, qp, rp);
}
static void
@@ -2573,7 +2563,6 @@ scm_truncate_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_inum2big (qq);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
{
@@ -2591,16 +2580,14 @@ scm_truncate_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = SCM_INUM0;
*rp = x;
}
- return;
}
else if (SCM_REALP (y))
- return scm_i_inexact_truncate_divide (xx, SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_truncate_divide (xx, SCM_REAL_VALUE (y), qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_truncate_divide (x, y, qp, rp);
+ scm_i_exact_rational_truncate_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_truncate_divide, x, y, SCM_ARG2,
- s_scm_truncate_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_truncate_divide, x, y, SCM_ARG2,
+ s_scm_truncate_divide, qp, rp);
}
else if (SCM_BIGP (x))
{
@@ -2627,7 +2614,6 @@ scm_truncate_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_normbig (q);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
{
@@ -2640,41 +2626,38 @@ scm_truncate_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*rp = scm_i_normbig (r);
}
else if (SCM_REALP (y))
- return scm_i_inexact_truncate_divide
- (scm_i_big2dbl (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_truncate_divide (scm_i_big2dbl (x), SCM_REAL_VALUE (y),
+ qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_truncate_divide (x, y, qp, rp);
+ scm_i_exact_rational_truncate_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_truncate_divide, x, y, SCM_ARG2,
- s_scm_truncate_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_truncate_divide, x, y, SCM_ARG2,
+ s_scm_truncate_divide, qp, rp);
}
else if (SCM_REALP (x))
{
if (SCM_REALP (y) || SCM_I_INUMP (y) ||
SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_inexact_truncate_divide
- (SCM_REAL_VALUE (x), scm_to_double (y), qp, rp);
+ scm_i_inexact_truncate_divide (SCM_REAL_VALUE (x), scm_to_double (y),
+ qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_truncate_divide, x, y, SCM_ARG2,
- s_scm_truncate_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_truncate_divide, x, y, SCM_ARG2,
+ s_scm_truncate_divide, qp, rp);
}
else if (SCM_FRACTIONP (x))
{
if (SCM_REALP (y))
- return scm_i_inexact_truncate_divide
+ scm_i_inexact_truncate_divide
(scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
else if (SCM_I_INUMP (y) || SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_exact_rational_truncate_divide (x, y, qp, rp);
+ scm_i_exact_rational_truncate_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_truncate_divide, x, y, SCM_ARG2,
- s_scm_truncate_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_truncate_divide, x, y, SCM_ARG2,
+ s_scm_truncate_divide, qp, rp);
}
else
- return two_valued_wta_dispatch_2 (g_scm_truncate_divide, x, y, SCM_ARG1,
- s_scm_truncate_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_truncate_divide, x, y, SCM_ARG1,
+ s_scm_truncate_divide, qp, rp);
}
static void
@@ -3217,22 +3200,18 @@ scm_centered_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_inum2big (qq);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
- {
- /* Pass a denormalized bignum version of x (even though it
- can fit in a fixnum) to scm_i_bigint_centered_divide */
- return scm_i_bigint_centered_divide (scm_i_long2big (xx), y, qp, rp);
- }
+ /* Pass a denormalized bignum version of x (even though it
+ can fit in a fixnum) to scm_i_bigint_centered_divide */
+ scm_i_bigint_centered_divide (scm_i_long2big (xx), y, qp, rp);
else if (SCM_REALP (y))
- return scm_i_inexact_centered_divide (xx, SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_centered_divide (xx, SCM_REAL_VALUE (y), qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_centered_divide (x, y, qp, rp);
+ scm_i_exact_rational_centered_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_centered_divide, x, y, SCM_ARG2,
- s_scm_centered_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_centered_divide, x, y, SCM_ARG2,
+ s_scm_centered_divide, qp, rp);
}
else if (SCM_BIGP (x))
{
@@ -3276,46 +3255,42 @@ scm_centered_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_normbig (q);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
- return scm_i_bigint_centered_divide (x, y, qp, rp);
+ scm_i_bigint_centered_divide (x, y, qp, rp);
else if (SCM_REALP (y))
- return scm_i_inexact_centered_divide
- (scm_i_big2dbl (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_centered_divide (scm_i_big2dbl (x), SCM_REAL_VALUE (y),
+ qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_centered_divide (x, y, qp, rp);
+ scm_i_exact_rational_centered_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_centered_divide, x, y, SCM_ARG2,
- s_scm_centered_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_centered_divide, x, y, SCM_ARG2,
+ s_scm_centered_divide, qp, rp);
}
else if (SCM_REALP (x))
{
if (SCM_REALP (y) || SCM_I_INUMP (y) ||
SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_inexact_centered_divide
- (SCM_REAL_VALUE (x), scm_to_double (y), qp, rp);
+ scm_i_inexact_centered_divide (SCM_REAL_VALUE (x), scm_to_double (y),
+ qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_centered_divide, x, y, SCM_ARG2,
- s_scm_centered_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_centered_divide, x, y, SCM_ARG2,
+ s_scm_centered_divide, qp, rp);
}
else if (SCM_FRACTIONP (x))
{
if (SCM_REALP (y))
- return scm_i_inexact_centered_divide
- (scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_centered_divide
+ (scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
else if (SCM_I_INUMP (y) || SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_exact_rational_centered_divide (x, y, qp, rp);
+ scm_i_exact_rational_centered_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2
- (g_scm_centered_divide, x, y, SCM_ARG2,
- s_scm_centered_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_centered_divide, x, y, SCM_ARG2,
+ s_scm_centered_divide, qp, rp);
}
else
- return two_valued_wta_dispatch_2 (g_scm_centered_divide, x, y, SCM_ARG1,
- s_scm_centered_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_centered_divide, x, y, SCM_ARG1,
+ s_scm_centered_divide, qp, rp);
}
static void
@@ -3897,22 +3872,18 @@ scm_round_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_inum2big (qq);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
- {
- /* Pass a denormalized bignum version of x (even though it
- can fit in a fixnum) to scm_i_bigint_round_divide */
- return scm_i_bigint_round_divide
- (scm_i_long2big (SCM_I_INUM (x)), y, qp, rp);
- }
+ /* Pass a denormalized bignum version of x (even though it
+ can fit in a fixnum) to scm_i_bigint_round_divide */
+ scm_i_bigint_round_divide (scm_i_long2big (SCM_I_INUM (x)), y, qp, rp);
else if (SCM_REALP (y))
- return scm_i_inexact_round_divide (xx, SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_round_divide (xx, SCM_REAL_VALUE (y), qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_round_divide (x, y, qp, rp);
+ scm_i_exact_rational_round_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
- s_scm_round_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
+ s_scm_round_divide, qp, rp);
}
else if (SCM_BIGP (x))
{
@@ -3955,43 +3926,42 @@ scm_round_divide (SCM x, SCM y, SCM *qp, SCM *rp)
*qp = scm_i_normbig (q);
*rp = SCM_I_MAKINUM (rr);
}
- return;
}
else if (SCM_BIGP (y))
- return scm_i_bigint_round_divide (x, y, qp, rp);
+ scm_i_bigint_round_divide (x, y, qp, rp);
else if (SCM_REALP (y))
- return scm_i_inexact_round_divide
- (scm_i_big2dbl (x), SCM_REAL_VALUE (y), qp, rp);
+ scm_i_inexact_round_divide (scm_i_big2dbl (x), SCM_REAL_VALUE (y),
+ qp, rp);
else if (SCM_FRACTIONP (y))
- return scm_i_exact_rational_round_divide (x, y, qp, rp);
+ scm_i_exact_rational_round_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
- s_scm_round_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
+ s_scm_round_divide, qp, rp);
}
else if (SCM_REALP (x))
{
if (SCM_REALP (y) || SCM_I_INUMP (y) ||
SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_inexact_round_divide
- (SCM_REAL_VALUE (x), scm_to_double (y), qp, rp);
+ scm_i_inexact_round_divide (SCM_REAL_VALUE (x), scm_to_double (y),
+ qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
- s_scm_round_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
+ s_scm_round_divide, qp, rp);
}
else if (SCM_FRACTIONP (x))
{
if (SCM_REALP (y))
- return scm_i_inexact_round_divide
+ scm_i_inexact_round_divide
(scm_i_fraction2double (x), SCM_REAL_VALUE (y), qp, rp);
else if (SCM_I_INUMP (y) || SCM_BIGP (y) || SCM_FRACTIONP (y))
- return scm_i_exact_rational_round_divide (x, y, qp, rp);
+ scm_i_exact_rational_round_divide (x, y, qp, rp);
else
- return two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
- s_scm_round_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG2,
+ s_scm_round_divide, qp, rp);
}
else
- return two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG1,
- s_scm_round_divide, qp, rp);
+ two_valued_wta_dispatch_2 (g_scm_round_divide, x, y, SCM_ARG1,
+ s_scm_round_divide, qp, rp);
}
static void
- [Guile-commits] 07/47: Correct docstring of 'symlink'., (continued)
- [Guile-commits] 07/47: Correct docstring of 'symlink'., Andy Wingo, 2016/05/22
- [Guile-commits] 11/47: Add more R6RS port encoding tests, Andy Wingo, 2016/05/22
- [Guile-commits] 01/47: tests: Use 'pass-if-equal' in web-http chunked encoding tests., Andy Wingo, 2016/05/22
- [Guile-commits] 13/47: Fix typo in manual., Andy Wingo, 2016/05/22
- [Guile-commits] 19/47: Fix uses of 'scm_gc_protect', which does not exist, in the manual., Andy Wingo, 2016/05/22
- [Guile-commits] 21/47: psyntax: Fix bug in match-each+., Andy Wingo, 2016/05/22
- [Guile-commits] 15/47: i18n: Check for non-POSIX strtol_l., Andy Wingo, 2016/05/22
- [Guile-commits] 28/47: i18n: Add new collation test for posterity., Andy Wingo, 2016/05/22
- [Guile-commits] 05/47: tests: Make 'test-guild-compile' more reliable., Andy Wingo, 2016/05/22
- [Guile-commits] 32/47: Remove SIGEV constant definitions., Andy Wingo, 2016/05/22
- [Guile-commits] 04/47: Don't return expressions from void functions in numbers.c,
Andy Wingo <=
- [Guile-commits] 31/47: Add Hurd signal and error constants., Andy Wingo, 2016/05/22
- [Guile-commits] 08/47: web: Export 'server-impl' procedures and the 'http' server implementation., Andy Wingo, 2016/05/22
- [Guile-commits] 39/47: Bump user-visible copyright years to 2015., Andy Wingo, 2016/05/22
- [Guile-commits] 43/47: SRFI-19: Update the table of leap seconds., Andy Wingo, 2016/05/22
- [Guile-commits] 41/47: http: Accept empty reason phrases., Andy Wingo, 2016/05/22
- [Guile-commits] 42/47: http: Use 'read-header-line' instead of 'read-line*'., Andy Wingo, 2016/05/22
- [Guile-commits] 47/47: Merge from stable-2.0, Andy Wingo, 2016/05/22
- [Guile-commits] 14/47: Fix typo in the man page., Andy Wingo, 2016/05/22
- [Guile-commits] 33/47: build: Remove libguile/mkstemp.c, redundant with Gnulib., Andy Wingo, 2016/05/22
- [Guile-commits] 37/47: Regenerate SRFI-14 character set data., Andy Wingo, 2016/05/22