Merge remote-tracking branch 'origin/stable-2.0'

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

diff --git a/libguile/print.c b/libguile/print.c
index d8dd24c..a1c36eb 100644 (file)
--- a/libguile/print.c
+++ b/libguile/print.c
@@ -651,14 +651,20 @@ 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_wvect:
+       case scm_tc7_array:
          ENTER_NESTED_DATA (pstate, exp, circref);
-          scm_puts_unlocked ("#w(", port);
-         goto common_vector_printer;
-
+          scm_i_print_array (exp, port, pstate);
+          break;
        case scm_tc7_bytevector:
          scm_i_print_bytevector (exp, port, pstate);
          break;
+       case scm_tc7_bitvector:
+         scm_i_print_bitvector (exp, port, pstate);
+         break;
+       case scm_tc7_wvect:
+         ENTER_NESTED_DATA (pstate, exp, circref);
+          scm_puts_unlocked ("#w(", port);
+         goto common_vector_printer;
        case scm_tc7_vector:
          ENTER_NESTED_DATA (pstate, exp, circref);
          scm_puts_unlocked ("#(", port);