FIX: MOLD/FLAT on image does not removes line breaks in the alpha channel

Related to: metaeducation/rebol-issues#2389

Author: Oldes

src/core/t-image.c

@@ -491,11 +491,11 @@ INLINE REBCNT ARGB_To_BGR(REBCNT i)
 		if (indented) Append_Byte(mold->series, '\n');
 		Append_Bytes(mold->series, "} #{");
 
-		up = Prep_Uni_Series(mold, (size * 2) + (size / 10) + 1);
+		up = Prep_Uni_Series(mold, indented ? (size * 2) + (size / 10) + 1 : size * 2);
 
 		data = (REBCNT *)VAL_IMAGE_DATA(value);
 		for (len = 0; len < size; len++) {
-			if ((len % 10) == 0) *up++ = LF;
+			if (indented && (len % 10) == 0) *up++ = LF;
 			up = Form_Hex2_Uni(up, *data++ >> 24);
 		}
 	}

src/tests/units/mold-test.r3

@@ -295,7 +295,8 @@ Rebol [
 	;@@ https://github.com/rebol/rebol-issues/issues/2389
 		--assert (mold/flat make image! 8x1) = {make image! [8x1 #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}]}
 		--assert (mold/flat make image! 8x2) = {make image! [8x2 #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}]}
-
+		--assert (mold/flat make image! [1x1 0.0.0.66]) = {make image! [1x1 #{000000} #{42}]}
+		
 	--test-- "mold/flat/all image!"
 		--assert (mold/all/flat make image! 8x1) = {#[image! 8x1 #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}]}
 		--assert (mold/all/flat next make image! 8x1) = {#[image! 8x1 #{FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} 2]}