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

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

diff --git a/libguile/values.c b/libguile/values.c
index 98a9df1..d135da0 100644 (file)
--- a/libguile/values.c
+++ b/libguile/values.c
@@ -60,9 +60,9 @@ print_values (SCM obj, SCM pwps)
   SCM port = SCM_PORT_WITH_PS_PORT (pwps);
   scm_print_state *ps = SCM_PRINT_STATE (SCM_PORT_WITH_PS_PS (pwps));
 
-  scm_puts ("#<values ", port);
+  scm_puts_unlocked ("#<values ", port);
   scm_iprin1 (values, port, ps);
-  scm_puts (">", port);
+  scm_puts_unlocked (">", port);
 
   return SCM_UNSPECIFIED;
 }