diff options
author | Marius Vollmer <mvo@zagadka.de> | 2004-08-03 15:55:42 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2004-08-03 15:55:42 +0000 |
commit | cba42c9344cb8559ddfe8ba91e67e932cf5a2c1f (patch) | |
tree | 97fbe63607f9c03d6a1997d3b7b345a43936ea41 /libguile/unif.c | |
parent | 759aa8f9e06cf4e9f8cd8ded06a293e8b3d8a190 (diff) | |
download | guile-cba42c9344cb8559ddfe8ba91e67e932cf5a2c1f.tar.gz |
* numbers.h. numbers.c (scm_make_ratio): Renamed to
scm_i_make_ratio and made static, replaced uses with scm_divide.
Diffstat (limited to 'libguile/unif.c')
-rw-r--r-- | libguile/unif.c | 4 |
1 files changed, 2 insertions, 2 deletions
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" } |