[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / compiler / parser / syntax.c

diff --git a/ghc/compiler/parser/syntax.c b/ghc/compiler/parser/syntax.c
index 4f8d661..ad5b3f6 100644 (file)
--- 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;