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-10-28 22:37:27 by andy]
[ghc-hetmet.git]
/
ghc
/
interpreter
/
output.c
diff --git
a/ghc/interpreter/output.c
b/ghc/interpreter/output.c
index
904d4c4
..
9c7cf65
100644
(file)
--- a/
ghc/interpreter/output.c
+++ b/
ghc/interpreter/output.c
@@
-10,8
+10,8
@@
* included in the distribution.
*
* $RCSfile: output.c,v $
* included in the distribution.
*
* $RCSfile: output.c,v $
- * $Revision: 1.8 $
- * $Date: 1999/10/20 02:16:02 $
+ * $Revision: 1.9 $
+ * $Date: 1999/10/28 22:37:27 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
* ------------------------------------------------------------------------*/
#include "prelude.h"
@@
-640,6
+640,7
@@
Int fr; {
Bool useParens = len!=1;
#endif
if (useParens)
Bool useParens = len!=1;
#endif
if (useParens)
+ putChr('(');
for (; nonNull(ps); ps=tl(ps)) {
putPred(hd(ps),fr);
if (--c > 0) {
for (; nonNull(ps); ps=tl(ps)) {
putPred(hd(ps),fr);
if (--c > 0) {