From 206b3f6e037a3e6d4eaa6401899cc48a51488657 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 26 Apr 2016 23:01:14 +0200
Subject: 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.
---
 libguile/bitvectors.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'libguile/bitvectors.c')

diff --git a/libguile/bitvectors.c b/libguile/bitvectors.c
index d594317b2..baa5e5e95 100644
--- a/libguile/bitvectors.c
+++ b/libguile/bitvectors.c
@@ -62,7 +62,7 @@ scm_i_print_bitvector (SCM vec, SCM port, scm_print_state *pstate)
     {
       scm_t_uint32 mask = 1;
       for (j = 0; j < 32 && j < bit_len; j++, mask <<= 1)
-	scm_putc_unlocked ((bits[i] & mask)? '1' : '0', port);
+	scm_putc ((bits[i] & mask)? '1' : '0', port);
     }
     
   return 1;
-- 
cgit v1.2.1