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

diff --git a/csrc/oceani.mdc b/csrc/oceani.mdc
index cd37f1b..9d6aec9 100644
--- a/csrc/oceani.mdc
+++ b/csrc/oceani.mdc
@@ -1157,7 +1157,7 @@ A separate function encoding these cases will simplify some code later.
 	{
 		int cmp;
 		if (tl != tr)
-			return tl - tr;	// NOTEST
+			return tl - tr;
 		switch (tl->vtype) {
 		case Vlabel: cmp = left->label == right->label ? 0 : 1; break;
 		case Vnum: cmp = mpq_cmp(left->num, right->num); break;
@@ -4557,20 +4557,17 @@ the common header for all reductions to use.
 		}$
 	|	 IN OptNL Statementlist OUT ${ $0 = $<Sl; }$
 
-	OpenBlock -> OpenScope { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
-		}$
+	OpenBlock -> OpenScope { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
 	|	 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;	// UNTESTED
-		}$
+	UseBlock -> { IN OpenScope OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
 	|	 { OpenScope SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
 	|	 IN OpenScope OptNL Statementlist OUT ${ $0 = $<Sl; }$
 
-	ColonBlock -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl;	// UNTESTED
-		}$
+	ColonBlock -> { IN OptNL Statementlist OUT OptNL } ${ $0 = $<Sl; }$
 	|	 { SimpleStatements } ${ $0 = reorder_bilist($<SS); }$
 	|	 : SimpleStatements ; ${ $0 = reorder_bilist($<SS); }$
 	|	 : SimpleStatements EOL ${ $0 = reorder_bilist($<SS); }$