X-Git-Url: https://ocean-lang.org/code/?p=ocean;a=blobdiff_plain;f=csrc%2Foceani.mdc;fp=csrc%2Foceani.mdc;h=cd37f1b8b8766eeb8371bb9ec5171a34cdc70e0a;hp=6723b1416fec85197661345e7ab985387e9bf59a;hb=00ebc52dd6c8c5bc85795cd1eec6552ca49954e7;hpb=c149917d5ddbdc64113f429a6c9c531fdc47c450

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index 6723b14..cd37f1b 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -4550,12 +4550,10 @@ the common header for all reductions to use.
 	$TERM { } ;
 
 	$*binode
-	Block -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
-		}$
-	|	 { SimpleStatements } ${ $0 = reorder_bilist($<SS);	// UNTESTED
-		}$
+	Block -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
+	|	 { SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
 	|	 SimpleStatements ; ${ $0 = reorder_bilist($<SS); }$
-	|	 SimpleStatements EOL ${ $0 = reorder_bilist($<SS); 	// UNTESTED
+	|	 SimpleStatements EOL ${ $0 = reorder_bilist($<SS); 
 		}$
 	|	 IN OptNL Statementlist OUT ${ $0 = $<Sl; }$