X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Findent_test.mdc;h=fddb64b7520a15931b430075406c2853f056fef3;hp=087df32c4957ee5f7fa5bcb441162377ce77eb4b;hb=d7f2c9af259a43cbdb8def0ebe8040deed480848;hpb=984be32382c8e191600f1ff6643c4280dc5d2597

diff --git a/csrc/indent_test.mdc b/csrc/indent_test.mdc
index 087df32..fddb64b 100644
--- a/csrc/indent_test.mdc
+++ b/csrc/indent_test.mdc
@@ -139,8 +139,8 @@ Program -> Statementlist ${ print_statement($1, 0); }$
 $*statement
 	Newlines -> NEWLINE
 		| Newlines NEWLINE
-	Statementlist ->  Statements ${ $0 = $<1; }$
-		| Newlines Statements ${ $0 = $<2; }$
+	Statementlist ->  Statements ${ $0 = $<S; }$
+		| Newlines Statements ${ $0 = $<S1; }$
 
 	Statements -> Statements Statement ${
 				{
@@ -159,20 +159,20 @@ $*statement
 		| Newlines {
 	Close -> }
 		| Newlines }
-	Block -> Open Statementlist Close ${ $0 = $<2; }$
-		| Open SimpleStatements } ${ $0 = $<2; }$
-		| : SimpleStatements ${ $0 = $<2; }$
-		| : StatementBlock ${ $0 = $<2; }$
-	StatementBlock -> Statementlist $$OUT ${ $0 = $<1; }$
+	Block -> Open Statementlist Close ${ $0 = $<S; }$
+		| Open SimpleStatements } ${ $0 = $<S; }$
+		| : SimpleStatements ${ $0 = $<SS; }$
+		| : StatementBlock ${ $0 = $<SB; }$
+	StatementBlock -> Statementlist $$OUT ${ $0 = $<Sl; }$
 
 	SimpleStatements -> SimpleStatements ; SimpleStatement ${
 			{
 				struct statement **s;
-				$0 = $<1;
+				$0 = $<SSs;
 				s = &$0;
 				while (*s)
 					s = &(*s)->next;
-				*s = $<3;
+				*s = $<SS;
 			}
 			}$
 		| SimpleStatement ${ $0 = $<1; }$