projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
dc1dbaa
)
[project @ 1999-06-28 08:27:25 by simonmar]
author
simonmar
<unknown>
Mon, 28 Jun 1999 08:27:25 +0000
(08:27 +0000)
committer
simonmar
<unknown>
Mon, 28 Jun 1999 08:27:25 +0000
(08:27 +0000)
Don't attempt to close stdin or stdout. From Kevin Atkinson
<kevinatk@home.com>.
ghc/utils/unlit/unlit.c
patch
|
blob
|
history
diff --git
a/ghc/utils/unlit/unlit.c
b/ghc/utils/unlit/unlit.c
index
b15e568
..
27688c7
100644
(file)
--- a/
ghc/utils/unlit/unlit.c
+++ b/
ghc/utils/unlit/unlit.c
@@
-338,8
+338,8
@@
char **argv; {
unlit(file, istream, ostream);
- fclose(istream);
- fclose(ostream);
+ if (istream != stdin) fclose(istream);
+ if (ostream != stdout) fclose(ostream);
exit(errors==0 ? 0 : 1);
}