projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
[project @ 1999-06-28 08:27:25 by simonmar]
[ghc-hetmet.git]
/
ghc
/
utils
/
unlit
/
unlit.c
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);
}