FIX: don't use ANSI color sequence in formed error

Author: Oldes

src/core/a-lib.c

@@ -478,7 +478,9 @@ extern int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result);
 //			}
 		} else {
 			if (VAL_ERR_NUM(top) != RE_HALT) {
+				Put_Str(b_cast("\x1B[1;35m"));
 				Out_Value(top, 640, FALSE, 0); // error FORMed
+				Put_Str(b_cast("\x1B[0m"));
 //				if (VAL_ERR_NUM(top) > RE_THROW_MAX) {
 //					Out_Str("** Note: use WHY? for more about this error", 1);
 //				}

src/core/s-mold.c

@@ -1046,7 +1046,7 @@ STOID Mold_Error(REBVAL *value, REB_MOLD *mold, REBFLG molded)
 	err = VAL_ERR_VALUES(value);
 
 	// Form: ** <type> Error:
-	Emit(mold, "\x1B[1;35m** WB", &err->type, RS_ERRS+0);
+	Emit(mold, "** WB", &err->type, RS_ERRS+0);
 
 	// Append: error message ARG1, ARG2, etc.
 	msg = Find_Error_Info(err, 0);

src/tests/units/mold-test.r3

@@ -459,4 +459,11 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "form error!"
+	--test-- "form error!"
+		; no ANSI escape sequence!
+		--assert (form try [1 / 0]) = {** Math error: attempt to divide by zero^/** Where: / try^/** Near: / 0^/}
+
+===end-group===
+
 ~~~end-file~~~