diff options
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 8 |
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); } } |