From 46d9f74cea67aec84c3ac862ae2a1135b66cd06b Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Thu, 12 Jun 2014 11:28:41 +0100
Subject: [PATCH] Must fflush stderr too--it's buffered on windows!

Copied from Perforce
 Change: 186517
 ServerID: perforce.ravenbrook.com
---
 mps/example/scheme/scheme-advanced.c | 1 +
 mps/example/scheme/scheme-boehm.c    | 1 +
 mps/example/scheme/scheme-malloc.c   | 1 +
 mps/example/scheme/scheme.c          | 1 +
 4 files changed, 4 insertions(+)

diff --git a/mps/example/scheme/scheme-advanced.c b/mps/example/scheme/scheme-advanced.c
index 28a0c2cda52..418cd64b5f5 100644
--- a/mps/example/scheme/scheme-advanced.c
+++ b/mps/example/scheme/scheme-advanced.c
@@ -4401,6 +4401,7 @@ static int start(int argc, char *argv[])
       printf("%lu, %lu> ", (unsigned long)total,
              (unsigned long)mps_collections(arena));
       fflush(stdout);
+      fflush(stderr);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);
diff --git a/mps/example/scheme/scheme-boehm.c b/mps/example/scheme/scheme-boehm.c
index 57dc44d79cd..8bbd25f9e7a 100644
--- a/mps/example/scheme/scheme-boehm.c
+++ b/mps/example/scheme/scheme-boehm.c
@@ -3621,6 +3621,7 @@ int main(int argc, char *argv[])
         fprintf(stderr, "%s\n", error_message);
       printf("%lu> ", (unsigned long)total);
       fflush(stdout);
+      fflush(stderr);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);
diff --git a/mps/example/scheme/scheme-malloc.c b/mps/example/scheme/scheme-malloc.c
index 395a5638e87..98128cbf59a 100644
--- a/mps/example/scheme/scheme-malloc.c
+++ b/mps/example/scheme/scheme-malloc.c
@@ -3618,6 +3618,7 @@ int main(int argc, char *argv[])
         fprintf(stderr, "%s\n", error_message);
       printf("%lu> ", (unsigned long)total);
       fflush(stdout);
+      fflush(stderr);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);
diff --git a/mps/example/scheme/scheme.c b/mps/example/scheme/scheme.c
index 26c7a4b7f54..8ff551b7034 100644
--- a/mps/example/scheme/scheme.c
+++ b/mps/example/scheme/scheme.c
@@ -4331,6 +4331,7 @@ static int start(int argc, char *argv[])
       printf("%lu, %lu> ", (unsigned long)total,
              (unsigned long)mps_collections(arena));
       fflush(stdout);
+      fflush(stderr);
       obj = read(input);
       if(obj == obj_eof) break;
       obj = eval(env, op_env, obj);