mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* numbers.h. numbers.c (scm_make_ratio): Renamed to

Browse source 
scm_i_make_ratio and made static, replaced uses with scm_divide.
This commit is contained in:
Marius Vollmer 2004-08-03 15:55:42 +00:00
parent 759aa8f9e0
commit cba42c9344
3 changed files with 37 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -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"
}