X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParser.y;h=475534f139a94293f293f4c9f621a93e16f97ed6;hb=ea342fbcc2fe973f2a7026dcaa424c57adde30a0;hp=4d24d4c3e3461756fbec43aecf8a46acd4b76f24;hpb=efeacd997b659e1bbd15fe9be4fdb018f5a99d54;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 4d24d4c..475534f 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.6 1999/06/07 14:58:40 simonmar Exp $
+$Id: Parser.y,v 1.7 1999/06/25 14:38:54 simonmar Exp $
 
 Haskell grammar.
 
@@ -764,10 +764,13 @@ stmtlist :: { [RdrNameStmt] }
 	|     layout_on  stmts close	{ reverse $2 }
 
 stmts :: { [RdrNameStmt] }
-	: stmts ';' stmt		{ $3 : $1 }
-	| stmts ';'			{ $1 }
+	: ';' stmts1			{ $2 }
+	| stmts1			{ $1 }
+
+stmts1 :: { [RdrNameStmt] }
+	: stmts1 ';' stmt		{ $3 : $1 }
+	| stmts1 ';'			{ $1 }
 	| stmt 				{ [$1] }
- 	| {- empty -}			{ [] }
 
 stmt  :: { RdrNameStmt }
 	: srcloc infixexp '<-' exp	{% checkPattern $2 `thenP` \p ->