FEAT: adding different output for form/mold functions used on word types (as it was in Rebol2)

So it is again:

>> mold #foo
== "#foo"
>> form #foo
== "foo"

NOTE: it also affects conversion using TO string! (and string variants like file!)

Related ancient blog article: http://www.rebol.net/cgi-bin/r3blog.r?view=0304

Fixes: metaeducation/rebol-issues#1404

Author: Oldes

src/core/s-mold.c

@@ -1197,23 +1197,38 @@ STOID Mold_Error(REBVAL *value, REB_MOLD *mold, REBFLG molded)
 		break;
 
 	case REB_SET_WORD:
-		Emit(mold, "W:", value);
+		if(molded)
+			Emit(mold, "W:", value);
+		else
+			Append_UTF8(ser, Get_Sym_Name(VAL_WORD_SYM(value)), -1);
 		break;
 
 	case REB_GET_WORD:
-		Emit(mold, ":W", value);
+		if(molded)
+			Emit(mold, ":W", value);
+		else
+			Append_UTF8(ser, Get_Sym_Name(VAL_WORD_SYM(value)), -1);
 		break;
 
 	case REB_LIT_WORD:
-		Emit(mold, "\'W", value);
+		if(molded)
+			Emit(mold, "\'W", value);
+		else
+			Append_UTF8(ser, Get_Sym_Name(VAL_WORD_SYM(value)), -1);
 		break;
 
 	case REB_REFINEMENT:
-		Emit(mold, "/W", value);
+		if(molded)
+			Emit(mold, "/W", value);
+		else
+			Append_UTF8(ser, Get_Sym_Name(VAL_WORD_SYM(value)), -1);
 		break;
 
 	case REB_ISSUE:
-		Emit(mold, "#W", value);
+		if(molded)
+			Emit(mold, "#W", value);
+		else
+			Append_UTF8(ser, Get_Sym_Name(VAL_WORD_SYM(value)), -1);
 		break;
 
 	case REB_CLOSURE: