summaryrefslogtreecommitdiff
path: root/libguile/objects.c
diff options
context:
space:
mode:
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: