mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-24 07:41:54 -07:00
Code Issues Projects Releases Wiki Activity

Must fflush stderr too--it's buffered on windows!

Browse source 
Copied from Perforce
 Change: 186517
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2014-06-12 11:28:41 +01:00
parent 14addd278e
commit 46d9f74cea
4 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
mps/example/scheme/scheme-advanced.c
View file

@ -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);

1
mps/example/scheme/scheme-boehm.c
View file

@ -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);

1
mps/example/scheme/scheme-malloc.c
View file

@ -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);

1
mps/example/scheme/scheme.c
View file

@ -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);