diff options
Diffstat (limited to 'libguile/print.c')
-rw-r--r-- | libguile/print.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libguile/print.c b/libguile/print.c index 2551bdf91..e0a6daa52 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -646,6 +646,13 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) case scm_tc7_with_fluids: scm_i_with_fluids_print (exp, port, pstate); break; + case scm_tc7_array: + ENTER_NESTED_DATA (pstate, exp, circref); + scm_i_print_array (exp, port, pstate); + break; + case scm_tc7_bytevector: + scm_i_print_bytevector (exp, port, pstate); + break; case scm_tc7_wvect: ENTER_NESTED_DATA (pstate, exp, circref); if (SCM_IS_WHVEC (exp)) @@ -653,10 +660,6 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate) else scm_puts ("#w(", port); goto common_vector_printer; - - case scm_tc7_bytevector: - scm_i_print_bytevector (exp, port, pstate); - break; case scm_tc7_vector: ENTER_NESTED_DATA (pstate, exp, circref); scm_puts ("#(", port); |