X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;h=1be7c673c010a31c9737fcfb959abc4861afb956;hp=122bcbcc6338ac33772f83c79b7256942564ef47;hb=8f1b75648081b69f4ff47263faea1843efdca6aa;hpb=328f1ddba692ab946bde77f5cf8665ca4497d416

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 122bcbc..1be7c67 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -3945,19 +3945,21 @@ casepart` to track a list of case parts.
 
 	$*binode
 	// This scope is closed in CondStatement
-	WhilePart -> while UseBlock OptNL do Block ${
+	WhilePart -> while UseBlock OptNL do OpenBlock ${
 			$0 = new(binode);
 			$0->op = Loop;
 			$0->left = $<UB;
-			$0->right = $<Bl;
+			$0->right = $<OB;
+			var_block_close(c, CloseSequential);
 			var_block_close(c, CloseSequential);
 		}$
-		| while OpenScope Expression ColonBlock ${
+		| while OpenScope Expression OpenScope ColonBlock ${
 			$0 = new(binode);
 			$0->op = Loop;
 			$0->left = $<Exp;
 			$0->right = $<CB;
 			var_block_close(c, CloseSequential);
+			var_block_close(c, CloseSequential);
 		}$
 
 	$cond_statement