FIX: MOLD NEW-LINE? behavior indents too much in BLOCK!s

resolves: Oldes/Rebol-issues#2279

Author: Oldes

src/core/s-mold.c

@@ -674,7 +674,6 @@ STOID Mold_Block_Series(REB_MOLD *mold, REBSER *series, REBCNT index, REBYTE *se
 
 	if (sep[1]) {
 		Append_Byte(out, sep[0]);
-		mold->indent++;
 	}
 //	else out->tail--;  // why?????
 
@@ -683,8 +682,14 @@ STOID Mold_Block_Series(REB_MOLD *mold, REBSER *series, REBCNT index, REBYTE *se
 		// check if we can end sooner with molding..
 		if (MOLD_HAS_LIMIT(mold) && MOLD_OVER_LIMIT(mold)) return;
 		if (VAL_GET_LINE(value)) {
-			if (indented && (sep[1] || line_flag)) New_Indented_Line(mold);
-			had_lines = TRUE;
+			if (indented && (sep[1] || line_flag)) {
+				if(!had_lines && !line_flag) {
+					had_lines = TRUE;
+					mold->indent++;
+				}
+				New_Indented_Line(mold);
+			}
+			
 		}
 		line_flag = TRUE;
 		Mold_Value(mold, value, TRUE);
@@ -694,8 +699,10 @@ STOID Mold_Block_Series(REB_MOLD *mold, REBSER *series, REBCNT index, REBYTE *se
 	}
 
 	if (sep[1]) {
-		mold->indent--;
-		if (indented && (VAL_GET_LINE(value) || had_lines)) New_Indented_Line(mold);
+		if (indented && (VAL_GET_LINE(value) || had_lines)) {
+			if (had_lines) mold->indent--;
+			New_Indented_Line(mold);
+		}
 		Append_Byte(out, sep[1]);
 	}
 

src/tests/units/mold-test.r3

@@ -291,6 +291,10 @@ Rebol [
 		--assert "1 2^/3^/4" = mold/only load "[1 2^/3^/4^/]"
 		--assert "1 2^/3^/4^/5" = mold/only load "[1 2^/3^/4^/5]"
 
+	--test-- "issue-2279"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2279
+		--assert "[[[^/    1^/]]]" = mold load {[[[^/1^/]]]}
+
 ===end-group===
 
 ===start-group=== "mold map!"