summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-08-03 15:55:42 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-08-03 15:55:42 +0000
commitcba42c9344cb8559ddfe8ba91e67e932cf5a2c1f (patch)
tree97fbe63607f9c03d6a1997d3b7b345a43936ea41
parent759aa8f9e06cf4e9f8cd8ded06a293e8b3d8a190 (diff)
downloadguile-cba42c9344cb8559ddfe8ba91e67e932cf5a2c1f.tar.gz
* numbers.h. numbers.c (scm_make_ratio): Renamed to
scm_i_make_ratio and made static, replaced uses with scm_divide.
-rw-r--r--libguile/numbers.c70
-rw-r--r--libguile/numbers.h1
-rw-r--r--libguile/unif.c4
3 files changed, 37 insertions, 38 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c
index 330844a20..8f0652141 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -343,8 +343,8 @@ scm_i_mpz2num (mpz_t b)
/* this is needed when we want scm_divide to make a float, not a ratio, even if passed two ints */
static SCM scm_divide2real (SCM x, SCM y);
-SCM
-scm_make_ratio (SCM numerator, SCM denominator)
+static SCM
+scm_i_make_ratio (SCM numerator, SCM denominator)
#define FUNC_NAME "make-ratio"
{
/* First make sure the arguments are proper.
@@ -692,7 +692,7 @@ SCM_PRIMITIVE_GENERIC (scm_abs, "abs", 1, 0, 0,
{
if (scm_is_false (scm_negative_p (SCM_FRACTION_NUMERATOR (x))))
return x;
- return scm_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x), SCM_UNDEFINED),
+ return scm_i_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x), SCM_UNDEFINED),
SCM_FRACTION_DENOMINATOR (x));
}
else
@@ -2684,7 +2684,7 @@ mem2ureal (const char* mem, size_t len, unsigned int *p_idx,
return SCM_BOOL_F;
/* both are int/big here, I assume */
- result = scm_make_ratio (uinteger, divisor);
+ result = scm_i_make_ratio (uinteger, divisor);
}
else if (radix == 10)
{
@@ -3868,7 +3868,7 @@ scm_sum (SCM x, SCM y)
SCM_COMPLEX_IMAG (y));
}
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (y),
+ return scm_i_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (y),
scm_product (x, SCM_FRACTION_DENOMINATOR (y))),
SCM_FRACTION_DENOMINATOR (y));
else
@@ -3933,7 +3933,7 @@ scm_sum (SCM x, SCM y)
return scm_make_complex (real_part, SCM_COMPLEX_IMAG (y));
}
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (y),
+ return scm_i_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (y),
scm_product (x, SCM_FRACTION_DENOMINATOR (y))),
SCM_FRACTION_DENOMINATOR (y));
else
@@ -3986,11 +3986,11 @@ scm_sum (SCM x, SCM y)
else if (SCM_FRACTIONP (x))
{
if (SCM_I_INUMP (y))
- return scm_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (x),
scm_product (y, SCM_FRACTION_DENOMINATOR (x))),
SCM_FRACTION_DENOMINATOR (x));
else if (SCM_BIGP (y))
- return scm_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (scm_sum (SCM_FRACTION_NUMERATOR (x),
scm_product (y, SCM_FRACTION_DENOMINATOR (x))),
SCM_FRACTION_DENOMINATOR (x));
else if (SCM_REALP (y))
@@ -4000,7 +4000,7 @@ scm_sum (SCM x, SCM y)
SCM_COMPLEX_IMAG (y));
else if (SCM_FRACTIONP (y))
/* a/b + c/d = (ad + bc) / bd */
- return scm_make_ratio (scm_sum (scm_product (SCM_FRACTION_NUMERATOR (x), SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_sum (scm_product (SCM_FRACTION_NUMERATOR (x), SCM_FRACTION_DENOMINATOR (y)),
scm_product (SCM_FRACTION_NUMERATOR (y), SCM_FRACTION_DENOMINATOR (x))),
scm_product (SCM_FRACTION_DENOMINATOR (x), SCM_FRACTION_DENOMINATOR (y)));
else
@@ -4041,7 +4041,7 @@ scm_difference (SCM x, SCM y)
return scm_make_complex (-SCM_COMPLEX_REAL (x),
-SCM_COMPLEX_IMAG (x));
else if (SCM_FRACTIONP (x))
- return scm_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x), SCM_UNDEFINED),
+ return scm_i_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x), SCM_UNDEFINED),
SCM_FRACTION_DENOMINATOR (x));
else
SCM_WTA_DISPATCH_1 (g_difference, x, SCM_ARG1, s_difference);
@@ -4101,7 +4101,7 @@ scm_difference (SCM x, SCM y)
}
else if (SCM_FRACTIONP (y))
/* a - b/c = (ac - b) / c */
- return scm_make_ratio (scm_difference (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_difference (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
SCM_FRACTION_NUMERATOR (y)),
SCM_FRACTION_DENOMINATOR (y));
else
@@ -4166,7 +4166,7 @@ scm_difference (SCM x, SCM y)
return scm_make_complex (real_part, - SCM_COMPLEX_IMAG (y));
}
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_difference (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_difference (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
SCM_FRACTION_NUMERATOR (y)),
SCM_FRACTION_DENOMINATOR (y));
else SCM_WTA_DISPATCH_2 (g_difference, x, y, SCM_ARGn, s_difference);
@@ -4219,11 +4219,11 @@ scm_difference (SCM x, SCM y)
{
if (SCM_I_INUMP (y))
/* a/b - c = (a - cb) / b */
- return scm_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x),
scm_product(y, SCM_FRACTION_DENOMINATOR (x))),
SCM_FRACTION_DENOMINATOR (x));
else if (SCM_BIGP (y))
- return scm_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (x),
scm_product(y, SCM_FRACTION_DENOMINATOR (x))),
SCM_FRACTION_DENOMINATOR (x));
else if (SCM_REALP (y))
@@ -4233,7 +4233,7 @@ scm_difference (SCM x, SCM y)
-SCM_COMPLEX_IMAG (y));
else if (SCM_FRACTIONP (y))
/* a/b - c/d = (ad - bc) / bd */
- return scm_make_ratio (scm_difference (scm_product (SCM_FRACTION_NUMERATOR (x), SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_difference (scm_product (SCM_FRACTION_NUMERATOR (x), SCM_FRACTION_DENOMINATOR (y)),
scm_product (SCM_FRACTION_NUMERATOR (y), SCM_FRACTION_DENOMINATOR (x))),
scm_product (SCM_FRACTION_DENOMINATOR (x), SCM_FRACTION_DENOMINATOR (y)));
else
@@ -4302,7 +4302,7 @@ scm_product (SCM x, SCM y)
return scm_make_complex (xx * SCM_COMPLEX_REAL (y),
xx * SCM_COMPLEX_IMAG (y));
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_product (x, SCM_FRACTION_NUMERATOR (y)),
+ return scm_i_make_ratio (scm_product (x, SCM_FRACTION_NUMERATOR (y)),
SCM_FRACTION_DENOMINATOR (y));
else
SCM_WTA_DISPATCH_2 (g_product, x, y, SCM_ARGn, s_product);
@@ -4337,7 +4337,7 @@ scm_product (SCM x, SCM y)
z * SCM_COMPLEX_IMAG (y));
}
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_product (x, SCM_FRACTION_NUMERATOR (y)),
+ return scm_i_make_ratio (scm_product (x, SCM_FRACTION_NUMERATOR (y)),
SCM_FRACTION_DENOMINATOR (y));
else
SCM_WTA_DISPATCH_2 (g_product, x, y, SCM_ARGn, s_product);
@@ -4396,10 +4396,10 @@ scm_product (SCM x, SCM y)
else if (SCM_FRACTIONP (x))
{
if (SCM_I_INUMP (y))
- return scm_make_ratio (scm_product (y, SCM_FRACTION_NUMERATOR (x)),
+ return scm_i_make_ratio (scm_product (y, SCM_FRACTION_NUMERATOR (x)),
SCM_FRACTION_DENOMINATOR (x));
else if (SCM_BIGP (y))
- return scm_make_ratio (scm_product (y, SCM_FRACTION_NUMERATOR (x)),
+ return scm_i_make_ratio (scm_product (y, SCM_FRACTION_NUMERATOR (x)),
SCM_FRACTION_DENOMINATOR (x));
else if (SCM_REALP (y))
return scm_from_double (scm_i_fraction2double (x) * SCM_REAL_VALUE (y));
@@ -4411,7 +4411,7 @@ scm_product (SCM x, SCM y)
}
else if (SCM_FRACTIONP (y))
/* a/b * c/d = ac / bd */
- return scm_make_ratio (scm_product (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (scm_product (SCM_FRACTION_NUMERATOR (x),
SCM_FRACTION_NUMERATOR (y)),
scm_product (SCM_FRACTION_DENOMINATOR (x),
SCM_FRACTION_DENOMINATOR (y)));
@@ -4482,14 +4482,14 @@ scm_i_divide (SCM x, SCM y, int inexact)
{
if (inexact)
return scm_from_double (1.0 / (double) xx);
- else return scm_make_ratio (SCM_I_MAKINUM(1), x);
+ else return scm_i_make_ratio (SCM_I_MAKINUM(1), x);
}
}
else if (SCM_BIGP (x))
{
if (inexact)
return scm_from_double (1.0 / scm_i_big2dbl (x));
- else return scm_make_ratio (SCM_I_MAKINUM(1), x);
+ else return scm_i_make_ratio (SCM_I_MAKINUM(1), x);
}
else if (SCM_REALP (x))
{
@@ -4519,7 +4519,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
}
}
else if (SCM_FRACTIONP (x))
- return scm_make_ratio (SCM_FRACTION_DENOMINATOR (x),
+ return scm_i_make_ratio (SCM_FRACTION_DENOMINATOR (x),
SCM_FRACTION_NUMERATOR (x));
else
SCM_WTA_DISPATCH_1 (g_divide, x, SCM_ARG1, s_divide);
@@ -4543,7 +4543,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
{
if (inexact)
return scm_from_double ((double) xx / (double) yy);
- else return scm_make_ratio (x, y);
+ else return scm_i_make_ratio (x, y);
}
else
{
@@ -4558,7 +4558,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
{
if (inexact)
return scm_from_double ((double) xx / scm_i_big2dbl (y));
- else return scm_make_ratio (x, y);
+ else return scm_i_make_ratio (x, y);
}
else if (SCM_REALP (y))
{
@@ -4593,7 +4593,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
}
else if (SCM_FRACTIONP (y))
/* a / b/c = ac / b */
- return scm_make_ratio (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
SCM_FRACTION_NUMERATOR (y));
else
SCM_WTA_DISPATCH_2 (g_divide, x, y, SCM_ARGn, s_divide);
@@ -4641,7 +4641,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
{
if (inexact)
return scm_from_double (scm_i_big2dbl (x) / (double) yy);
- else return scm_make_ratio (x, y);
+ else return scm_i_make_ratio (x, y);
}
}
}
@@ -4681,7 +4681,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
scm_remember_upto_here_2 (x, y);
return scm_from_double (dbx / dby);
}
- else return scm_make_ratio (x, y);
+ else return scm_i_make_ratio (x, y);
}
}
}
@@ -4701,7 +4701,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
goto complex_div;
}
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_product (x, SCM_FRACTION_DENOMINATOR (y)),
SCM_FRACTION_NUMERATOR (y));
else
SCM_WTA_DISPATCH_2 (g_divide, x, y, SCM_ARGn, s_divide);
@@ -4813,12 +4813,12 @@ scm_i_divide (SCM x, SCM y, int inexact)
scm_num_overflow (s_divide);
else
#endif
- return scm_make_ratio (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (SCM_FRACTION_NUMERATOR (x),
scm_product (SCM_FRACTION_DENOMINATOR (x), y));
}
else if (SCM_BIGP (y))
{
- return scm_make_ratio (SCM_FRACTION_NUMERATOR (x),
+ return scm_i_make_ratio (SCM_FRACTION_NUMERATOR (x),
scm_product (SCM_FRACTION_DENOMINATOR (x), y));
}
else if (SCM_REALP (y))
@@ -4837,7 +4837,7 @@ scm_i_divide (SCM x, SCM y, int inexact)
goto complex_div;
}
else if (SCM_FRACTIONP (y))
- return scm_make_ratio (scm_product (SCM_FRACTION_NUMERATOR (x), SCM_FRACTION_DENOMINATOR (y)),
+ return scm_i_make_ratio (scm_product (SCM_FRACTION_NUMERATOR (x), SCM_FRACTION_DENOMINATOR (y)),
scm_product (SCM_FRACTION_NUMERATOR (y), SCM_FRACTION_DENOMINATOR (x)));
else
SCM_WTA_DISPATCH_2 (g_divide, x, y, SCM_ARGn, s_divide);
@@ -5324,7 +5324,7 @@ scm_magnitude (SCM z)
{
if (scm_is_false (scm_negative_p (SCM_FRACTION_NUMERATOR (z))))
return z;
- return scm_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (z), SCM_UNDEFINED),
+ return scm_i_make_ratio (scm_difference (SCM_FRACTION_NUMERATOR (z), SCM_UNDEFINED),
SCM_FRACTION_DENOMINATOR (z));
}
else
@@ -5417,10 +5417,10 @@ SCM_DEFINE (scm_inexact_to_exact, "inexact->exact", 1, 0, 0,
mpq_init (frac);
mpq_set_d (frac, SCM_REAL_VALUE (z));
- q = scm_make_ratio (scm_i_mpz2num (mpq_numref (frac)),
+ q = scm_i_make_ratio (scm_i_mpz2num (mpq_numref (frac)),
scm_i_mpz2num (mpq_denref (frac)));
- /* When scm_make_ratio throws, we leak the memory allocated
+ /* When scm_i_make_ratio throws, we leak the memory allocated
for frac...
*/
mpq_clear (frac);
diff --git a/libguile/numbers.h b/libguile/numbers.h
index 501ea51cf..7917191c2 100644
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -267,7 +267,6 @@ SCM_API SCM scm_i_long2big (long n);
SCM_API SCM scm_i_ulong2big (unsigned long n);
/* ratio functions */
-SCM_API SCM scm_make_ratio (SCM num, SCM den);
SCM_API SCM scm_rationalize (SCM x, SCM err);
SCM_API SCM scm_numerator (SCM z);
SCM_API SCM scm_denominator (SCM z);
diff --git a/libguile/unif.c b/libguile/unif.c
index 475e353d6..a5bce8c42 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -2599,8 +2599,8 @@ scm_init_unif ()
scm_set_smob_free (scm_tc16_array, array_free);
scm_set_smob_print (scm_tc16_array, scm_raprin1);
scm_set_smob_equalp (scm_tc16_array, scm_array_equal_p);
- exactly_one_third = scm_permanent_object (scm_make_ratio (scm_from_int (1),
- scm_from_int (3)));
+ exactly_one_third = scm_permanent_object (scm_divide (scm_from_int (1),
+ scm_from_int (3)));
scm_add_feature ("array");
#include "libguile/unif.x"
}