Remove scm_puts_unlocked.

* libguile/ports.h (scm_puts_unlocked): Remove.
* libguile/ports.c (scm_puts): Replace implementation with
  scm_puts_unlocked's implementation.
* libguile/arbiters.c:
* libguile/backtrace.c:
* libguile/bitvectors.c:
* libguile/continuations.c:
* libguile/deprecation.c:
* libguile/dynl.c:
* libguile/eval.c:
* libguile/filesys.c:
* libguile/fluids.c:
* libguile/foreign.c:
* libguile/fports.c:
* libguile/frames.c:
* libguile/guardians.c:
* libguile/hashtab.c:
* libguile/hooks.c:
* libguile/load.c:
* libguile/macros.c:
* libguile/mallocs.c:
* libguile/print.c:
* libguile/programs.c:
* libguile/promises.c:
* libguile/smob.c:
* libguile/srcprop.c:
* libguile/srfi-14.c:
* libguile/stackchk.c:
* libguile/struct.c:
* libguile/threads.c:
* libguile/throw.c:
* libguile/values.c:
* libguile/variable.c:
* libguile/vm.c:
* libguile/weak-set.c:
* libguile/weak-table.c: Use scm_puts instead of scm_puts_unlocked.

1 files changed, 6 insertions, 6 deletions

diff --git a/libguile/struct.c b/libguile/struct.c
index 4c9d8dac2..51c0f111d 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -936,7 +936,7 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
     {
       SCM vtable = SCM_STRUCT_VTABLE (exp);
       SCM name = scm_struct_vtable_name (vtable);
-      scm_puts_unlocked ("#<", port);
+      scm_puts ("#<", port);
       if (scm_is_true (name))
 	{
           scm_display (name, port);
@@ -945,9 +945,9 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
       else
 	{
           if (SCM_VTABLE_FLAG_IS_SET (vtable, SCM_VTABLE_FLAG_VTABLE))
-            scm_puts_unlocked ("vtable:", port);
+            scm_puts ("vtable:", port);
           else
-            scm_puts_unlocked ("struct:", port);
+            scm_puts ("struct:", port);
           scm_uintprint (SCM_UNPACK (vtable), 16, port);
           scm_putc (' ', port);
           scm_write (SCM_VTABLE_LAYOUT (vtable), port);
@@ -959,15 +959,15 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
         {
           if (scm_is_true (SCM_STRUCT_PROCEDURE (exp)))
             {
-              scm_puts_unlocked (" proc: ", port);
+              scm_puts (" proc: ", port);
               if (scm_is_true (scm_procedure_p (SCM_STRUCT_PROCEDURE (exp))))
                 scm_write (SCM_STRUCT_PROCEDURE (exp), port);
               else
-                scm_puts_unlocked ("(not a procedure?)", port);
+                scm_puts ("(not a procedure?)", port);
             }
           if (SCM_STRUCT_SETTER_P (exp))
             {
-              scm_puts_unlocked (" setter: ", port);
+              scm_puts (" setter: ", port);
               scm_write (SCM_STRUCT_SETTER (exp), port);
             }
         }