core: Fix flush for _POSIX_SOURCE.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 1 Apr 2017 18:25:03 +0000 (20:25 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 1 Apr 2017 18:25:03 +0000 (20:25 +0200)
* posix.c (write_byte, force_output)[_POSIX_SOURCE]: Use FILE*
  functions.  Fixes repl.mes.

posix.c

diff --git a/posix.c b/posix.c
index ea8a460c0e2165c2bbc6891ba38706d6e0859f09..c80ed8d87e7436d7037caa807adb3a8ecb63d392 100644 (file)
--- a/posix.c
+++ b/posix.c
@@ -114,7 +114,7 @@ write_byte (SCM x) ///((arity . n))
   SCM p = cdr (x);
   int fd = 1;
   if (TYPE (p) == TPAIR && TYPE (car (p)) == TNUMBER) fd = VALUE (car (p));
-#if !MES_MINI
+#if _POSIX_SOURCE
   FILE *f = fd == 1 ? stdout : stderr;
   fputc (VALUE (c), f);
 #else
@@ -173,7 +173,9 @@ force_output (SCM p) ///((arity . n))
 {
   int fd = 1;
   if (TYPE (p) == TPAIR && TYPE (car (p)) == TNUMBER) fd = VALUE (car (p));
-  // FILE *f = fd == 1 ? stdout : stderr;
-  // fflush (f);
+#if _POSIX_SOURCE
+  FILE *f = fd == 1 ? stdout : stderr;
+  fflush (f);
+#endif
   return cell_unspecified;
 }