Remove scm_putc_unlocked.

* libguile/ports.h (scm_putc_unlocked): Remove.
* libguile/ports.c (scm_putc): Replace implementation with
  scm_putc_unlocked's implementation.
  (scm_port_print): Use scm_putc.
* libguile/arbiters.c:
* libguile/arrays.c:
* libguile/bitvectors.c:
* libguile/bytevectors.c:
* libguile/continuations.c:
* libguile/dynl.c:
* libguile/eval.c:
* libguile/filesys.c:
* libguile/fluids.c:
* libguile/foreign.c:
* libguile/fports.c:
* libguile/frames.c:
* libguile/hashtab.c:
* libguile/hooks.c:
* libguile/macros.c:
* libguile/mallocs.c:
* libguile/print.c:
* libguile/programs.c:
* libguile/promises.c:
* libguile/r6rs-ports.c:
* libguile/smob.c:
* libguile/srcprop.c:
* libguile/struct.c:
* libguile/variable.c:
* libguile/weak-set.c:
* libguile/weak-table.c: Use scm_putc instead of scm_putc_unlocked.

1 files changed, 4 insertions, 4 deletions

diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index 41d5b6c85..54eef8b8e 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -417,17 +417,17 @@ scm_i_print_bytevector (SCM bv, SCM port, scm_print_state *pstate SCM_UNUSED)
   
   scm_array_get_handle (bv, &h);
 
-  scm_putc_unlocked ('#', port);
+  scm_putc ('#', port);
   scm_write (scm_array_handle_element_type (&h), port);
-  scm_putc_unlocked ('(', port);
+  scm_putc ('(', port);
   for (i = h.dims[0].lbnd, ubnd = h.dims[0].ubnd, inc = h.dims[0].inc;
        i <= ubnd; i += inc)
     {
       if (i > 0)
-	scm_putc_unlocked (' ', port);
+	scm_putc (' ', port);
       scm_write (scm_array_handle_ref (&h, i), port);
     }
-  scm_putc_unlocked (')', port);
+  scm_putc (')', port);
 
   return 1;
 }