diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 13 |
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)) { |