FIX: invalid MOLD on empty image

Author: Oldes

src/core/t-image.c

@@ -438,6 +438,11 @@ INLINE REBCNT ARGB_To_BGR(REBCNT i)
 
 	// Output RGB image:
 	size = VAL_IMAGE_LEN(value); // # pixels (from index to tail)
+
+	if (size == 0) {
+		Append_Byte(mold->series, '}');
+		return;
+	}
 	data = (REBCNT *)VAL_IMAGE_DATA(value);
 	up = Prep_Uni_Series(mold, (size * 6) + ((size - 1) / 10) + 1);
 

src/tests/units/mold-test.r3

@@ -261,4 +261,14 @@ Rebol [
 
 ===end-group===
 
+
+===start-group=== "mold image!"
+
+	--test-- "mold empty image"
+		--assert "make image! [0x0 #{}]"  = mold make image! 0x0
+		--assert "make image! [10x0 #{}]" = mold make image! 10x0
+		--assert "make image! [0x10 #{}]" = mold make image! 0x10
+
+===end-group===
+
 ~~~end-file~~~