summaryrefslogtreecommitdiff
path: root/libguile/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/print.c')
-rw-r--r--libguile/print.c13
1 files changed, 13 insertions, 0 deletions
diff --git a/libguile/print.c b/libguile/print.c
index 8b9c506be..50b969e24 100644
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -516,6 +516,19 @@ scm_iprin1 (SCM exp, SCM port, scm_print_state *pstate)
scm_putc ('>', port);
}
break;
+ case scm_tc7_number:
+ switch SCM_TYP16 (exp) {
+ case scm_tc16_big:
+ scm_bigprint (exp, port, pstate);
+ break;
+ case scm_tc16_real:
+ scm_print_real (exp, port, pstate);
+ break;
+ case scm_tc16_complex:
+ scm_print_complex (exp, port, pstate);
+ break;
+ }
+ break;
case scm_tc7_string:
if (SCM_WRITINGP (pstate))
{