diff options
| author | simonm <unknown> | 1998-12-02 13:32:30 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1998-12-02 13:32:30 +0000 |
| commit | 438596897ebbe25a07e1c82085cfbc5bdb00f09e (patch) | |
| tree | da7a441396aed2e13f6e0cc55282bf041b0cf72c /ghc/compiler/parser/syntax.c | |
| parent | 967cc47f37cb93a5e2b6df7822c9a646f0428247 (diff) | |
| download | haskell-438596897ebbe25a07e1c82085cfbc5bdb00f09e.tar.gz | |
[project @ 1998-12-02 13:17:09 by simonm]
Move 4.01 onto the main trunk.
Diffstat (limited to 'ghc/compiler/parser/syntax.c')
| -rw-r--r-- | ghc/compiler/parser/syntax.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ghc/compiler/parser/syntax.c b/ghc/compiler/parser/syntax.c index 4f8d661318..ad5b3f60a3 100644 --- a/ghc/compiler/parser/syntax.c +++ b/ghc/compiler/parser/syntax.c @@ -197,6 +197,15 @@ expORpat(int wanted, tree e) } break; + case utuple: + { + list tup; + for (tup = gutuplelist(e); tlist(tup) == lcons; tup = ltl(tup)) { + expORpat(wanted, lhd(tup)); + } + } + break; + case llist: { list l; |