Merge remote-tracking branch 'origin/stable-2.0'

[bpt/guile.git] / libguile / control.c

diff --git a/libguile/control.c b/libguile/control.c
index f8d2d60..ff6bfd8 100644 (file)
--- a/libguile/control.c
+++ b/libguile/control.c
@@ -268,9 +268,9 @@ SCM_DEFINE (scm_at_abort, "@abort", 2, 0, 0, (SCM tag, SCM args),
 void
 scm_i_prompt_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
 {
-  scm_puts ("#<prompt ", port);
+  scm_puts_unlocked ("#<prompt ", port);
   scm_intprint (SCM_UNPACK (exp), 16, port);
-  scm_putc ('>', port);
+  scm_putc_unlocked ('>', port);
 }
 
 void