summaryrefslogtreecommitdiff
path: root/libguile/struct.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/struct.c')
-rw-r--r--libguile/struct.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/struct.c b/libguile/struct.c
index 3bf2e3687..4c9d8dac2 100644
--- a/libguile/struct.c
+++ b/libguile/struct.c
@@ -940,7 +940,7 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
if (scm_is_true (name))
{
scm_display (name, port);
- scm_putc_unlocked (' ', port);
+ scm_putc (' ', port);
}
else
{
@@ -949,9 +949,9 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
else
scm_puts_unlocked ("struct:", port);
scm_uintprint (SCM_UNPACK (vtable), 16, port);
- scm_putc_unlocked (' ', port);
+ scm_putc (' ', port);
scm_write (SCM_VTABLE_LAYOUT (vtable), port);
- scm_putc_unlocked (' ', port);
+ scm_putc (' ', port);
}
scm_uintprint (SCM_UNPACK (exp), 16, port);
/* hackety hack */
@@ -971,7 +971,7 @@ scm_print_struct (SCM exp, SCM port, scm_print_state *pstate)
scm_write (SCM_STRUCT_SETTER (exp), port);
}
}
- scm_putc_unlocked ('>', port);
+ scm_putc ('>', port);
}
}