* print.c (scm_iprin1): Handle fractions.

[bpt/guile.git] / libguile / hash.c

diff --git a/libguile/hash.c b/libguile/hash.c
index 37ff077..4294556 100644 (file)
--- a/libguile/hash.c
+++ b/libguile/hash.c
@@ -103,6 +103,7 @@ scm_hasher(SCM obj, unsigned long n, size_t d)
        }
         /* Fall through */
       case scm_tc16_complex:
+      case scm_tc16_fraction:
        obj = scm_number_to_string (obj, SCM_MAKINUM (10));
         /* Fall through */
       }