FIX: turned off CRLF/CR conversion to LF when converting binary to string

Related issue: metaeducation/rebol-issues#2336

Author: Oldes

src/core/s-unicode.c

@@ -932,6 +932,9 @@ ConversionResult ConvertUTF8toUTF32 (
 	REBSER *dst;
 	REBINT size;
 
+	REBFLG ccr = FALSE; // in original R3-alpha if was TRUE
+	//@@ https://github.com/rebol/rebol-issues/issues/2336
+
 	if (utf == -1) {
 		utf = What_UTF(bp, len);
 		if (utf) {
@@ -942,13 +945,13 @@ ConversionResult ConvertUTF8toUTF32 (
 	}
 
 	if (utf == 0 || utf == 8) {
-		size = Decode_UTF8((REBUNI*)Reset_Buffer(ser, len), bp, len, TRUE);
+		size = Decode_UTF8((REBUNI*)Reset_Buffer(ser, len), bp, len, ccr);
 	} 
 	else if (utf == -16 || utf == 16) {
-		size = Decode_UTF16((REBUNI*)Reset_Buffer(ser, len/2 + 1), bp, len, utf < 0, TRUE);
+		size = Decode_UTF16((REBUNI*)Reset_Buffer(ser, len/2 + 1), bp, len, utf < 0, ccr);
 	}
 	else if (utf == -32 || utf == 32) {
-		size = Decode_UTF32((REBUNI*)Reset_Buffer(ser, len/4 + 1), bp, len, utf < 0, TRUE);
+		size = Decode_UTF32((REBUNI*)Reset_Buffer(ser, len/4 + 1), bp, len, utf < 0, ccr);
 	}
 
 	if (size < 0) {

src/tests/units/series-test.r3

@@ -143,5 +143,16 @@ Rebol [
 
 ===end-group===
 
+===start-group=== "STRING conversion"
+
+--test-- "issues/2336"
+	;@@ https://github.com/rebol/rebol-issues/issues/2336
+	--assert "^M"   = to-string to-binary "^M"
+	--assert "^/"   = to-string to-binary "^/"
+	--assert "^M^/" = to-string to-binary "^M^/"
+	--assert "^/^M" = to-string to-binary "^/^M"
+
+===end-group===
+
 
 ~~~end-file~~~