(fport_print): Use scm_ttyname instead of ttyname directly,

to get thread safety of scm_ttyname.

diff --git a/libguile/fports.c b/libguile/fports.c
index 7694749..ad03ad9 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -27,6 +27,7 @@
 #include "libguile/strings.h"
 #include "libguile/validate.h"
 #include "libguile/gc.h"
+#include "libguile/posix.h"
 #include "libguile/dynwind.h"
 
 #include "libguile/fports.h"
@@ -509,7 +510,7 @@ fport_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
       
 #ifdef HAVE_TTYNAME
       if (isatty (fdes))
-       scm_puts (ttyname (fdes), port);
+       scm_display (scm_ttyname (exp), port);
       else
 #endif /* HAVE_TTYNAME */
        scm_intprint (fdes, 10, port);