X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;fp=csrc%2Foceani.mdc;h=f5e2b6ea9707c19c0638ecb8962373de2a443723;hp=e16d56fdc80e5444b518cf6b847af34aa30d97dd;hb=6144b88db223f5587979e1c8847056f2b4a025ff;hpb=dff21c2c58c0087025f8dcf5b0ca12c5cb51a564

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index e16d56f..f5e2b6e 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -2963,10 +2963,12 @@ function will be needed.
 	} }$
 
 	$*fieldlist
-	FieldBlock -> { IN OptNL FieldLines OUT OptNL } ${ $0 = $<FL; }$
+	FieldBlock -> { IN OptNL FieldLines OUT OptNL } ${ $0 = $<FL;	// UNTESTED
+		}$
 	| { SimpleFieldList } ${ $0 = $<SFL; }$
 	| IN OptNL FieldLines OUT ${ $0 = $<FL; }$
-	| SimpleFieldList EOL ${ $0 = $<SFL; }$
+	| SimpleFieldList EOL ${ $0 = $<SFL;	// UNTESTED
+		}$
 
 	FieldLines -> SimpleFieldList Newlines ${ $0 = $<SFL; }$
 	| FieldLines SimpleFieldList Newlines ${ {
@@ -4550,23 +4552,29 @@ the common header for all reductions to use.
 	$TERM { } ;
 
 	$*binode
-	Block -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
-	|	 { SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
+	Block -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
+		}$
+	|	 { SimpleStatements } ${ $0 = reorder_bilist($<SS);	// UNTESTED
+		}$
 	|	 SimpleStatements ; ${ $0 = reorder_bilist($<SS); }$
-	|	 SimpleStatements EOL ${ $0 = reorder_bilist($<SS); }$
+	|	 SimpleStatements EOL ${ $0 = reorder_bilist($<SS); 	// UNTESTED
+		}$
 	|	 IN OptNL Statementlist OUT ${ $0 = $<Sl; }$
 
-	OpenBlock -> OpenScope { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
+	OpenBlock -> OpenScope { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
+		}$
 	|	 OpenScope { SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
 	|	 OpenScope SimpleStatements ; ${ $0 = reorder_bilist($<SS); }$
 	|	 OpenScope SimpleStatements EOL ${ $0 = reorder_bilist($<SS); }$
 	|	 IN OpenScope OptNL Statementlist OUT ${ $0 = $<Sl; }$
 
-	UseBlock -> { OpenScope IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
+	UseBlock -> { OpenScope IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
+		}$
 	|	 { OpenScope SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
 	|	 IN OpenScope OptNL Statementlist OUT ${ $0 = $<Sl; }$
 
-	ColonBlock -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
+	ColonBlock -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
+		}$
 	|	 { SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
 	|	 : SimpleStatements ; ${ $0 = reorder_bilist($<SS); }$
 	|	 : SimpleStatements EOL ${ $0 = reorder_bilist($<SS); }$