From: sof <unknown>
Date: Mon, 26 May 1997 04:28:46 +0000 (+0000)
Subject: [project @ 1997-05-26 04:28:46 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~508
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8461be3622ca13871500cbdb788d6f2f562dbf8d;p=ghc-hetmet.git

[project @ 1997-05-26 04:28:46 by sof]
Conversion of let blocks inside do blocks fixed up
---

diff --git a/ghc/compiler/parser/hsparser.y b/ghc/compiler/parser/hsparser.y
index 4ca10ea..4abf926 100644
--- a/ghc/compiler/parser/hsparser.y
+++ b/ghc/compiler/parser/hsparser.y
@@ -1009,9 +1009,11 @@ kexp	:  kexpL
 	|  kexpLno
 	;
 
+/* kexpL = a let expression */
 kexpL	:  letdecls IN exp			{ $$ = mklet($1,$3); }
 	;
 
+/* kexpLno = any other expression more tightly binding than operator application */
 kexpLno	:  LAMBDA
 		{ hsincindent();        /* push new context for FN = NULL;        */
 		  FN = NULL; 	        /* not actually concerned about indenting */
@@ -1199,7 +1201,7 @@ stmts	:  stmt					{ $$ = $1; }
 
 stmt	:  /* empty */				{ $$ = Lnil; }
 	|  letdecls				{ $$ = lsing(mkseqlet($1)); }
-	|  expL					{ $$ = lsing($1); }
+	|  expL					{ $$ = lsing(mkdoexp($1,hsplineno)); }
 	|  {inpat=TRUE;} expLno {inpat=FALSE;} leftexp
 		{ if ($4 == NULL) {
 		      expORpat(LEGIT_EXPR,$2);