summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2003-11-18 19:59:53 +0000
committerMarius Vollmer <mvo@zagadka.de>2003-11-18 19:59:53 +0000
commitf92e85f7352174c9fe0ac0e67e6c38cfce923300 (patch)
treebc52293ad0d0d1770d35bd58a118744a80e86957 /libguile/objects.c
parent9dd9857f77451a706052cae009d2fe7150373c5a (diff)
downloadguile-f92e85f7352174c9fe0ac0e67e6c38cfce923300.tar.gz
* print.c (scm_iprin1): Handle fractions.
* objects.h (scm_class_fraction): New. * objects.c (scm_class_fraction): New. (scm_class_of): Handle fractions. * hash.c (scm_hasher): Handle fractions. * numbers.c: New code for handling fraction all over the place. (scm_odd_p, scm_even_p): Handle inexact integers. (scm_rational_p): New function, same as scm_real_p. (scm_round_number, scm_truncate_number, scm_ceiling, scm_floor): New exact functions that replace the inexact 'dsubr' implementations. (scm_numerator, scm_denominator): New. * numbers.h (SCM_NUMP): Recognize fractions. (SCM_FRACTIONP, SCM_SLOPPY_FRACTIONP, SCM_FRACTION_NUMERATOR, SCM_FRACTION_DENOMINATOR, SCM_FRACTION_SET_NUMERATOR, SCM_FRACTION_SET_DENOMINATOR, SCM_FRACTION_REDUCED_BIT, SCM_FRACTION_REDUCED_SET, SCM_FRACTION_REDUCED_CLEAR, SCM_FRACTION_REDUCED): New. (scm_floor, scm_ceiling, scm_truncate_number, scm_round_number): New prototypes. (scm_make_ratio, scm_rationalize, scm_numerator, scm_denominator, scm_rational_p): New prototypes. (scm_i_dbl2num, scm_i_fraction2double, scm_i_fraction_equalp, scm_i_print_fraction): New prototypes. * goops.c (create_standard_classes): Create "<fraction>" class. * gc-mark.c (scm_gc_mark_dependencies): Handle fractions. * gc-card.c (scm_i_sweep_card): Include scm_tc16_fraction as a case in the switch, but do nothing for now. * eval.c (SCM_CEVAL, SCM_APPLY, call_dsubr_1): Convert fractions to doubles when calling 'dsubr' functions. * eq.c (scm_eqv_p, scm_equal_p): Handle fractions.
Diffstat (limited to 'libguile/objects.c')
-rw-r--r--libguile/objects.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/libguile/objects.c b/libguile/objects.c
index 12ee5a9c0..f655470da 100644
--- a/libguile/objects.c
+++ b/libguile/objects.c
@@ -48,7 +48,7 @@ SCM scm_class_boolean, scm_class_char, scm_class_pair;
SCM scm_class_procedure, scm_class_string, scm_class_symbol;
SCM scm_class_procedure_with_setter, scm_class_primitive_generic;
SCM scm_class_vector, scm_class_null;
-SCM scm_class_integer, scm_class_real, scm_class_complex;
+SCM scm_class_integer, scm_class_real, scm_class_complex, scm_class_fraction;
SCM scm_class_unknown;
SCM *scm_port_class = 0;
@@ -110,6 +110,8 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
return scm_class_real;
case scm_tc16_complex:
return scm_class_complex;
+ case scm_tc16_fraction:
+ return scm_class_fraction;
}
case scm_tc7_asubr:
case scm_tc7_subr_0: