CHANGE: transcode used without any refinement returns only scanned data

resolves: Oldes/Rebol-issues#1329

Author: Oldes

src/core/l-scan.c

@@ -1930,7 +1930,8 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
 		//printf("%i\n", len);
 		VAL_INDEX(src) = len;
 	}
-	Append_Val(blk, src);
+	if (scan_state.opts)
+		Append_Val(blk, src);
 	return R_RET;
 }
 

src/tests/units/lexer-test.r3

@@ -11,16 +11,10 @@ Rebol [
 ===start-group=== "TRANSCODE"
 	--test-- "transcode basic"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/688
-		--assert all [
-			block? code: transcode to binary! "1 + 1"
-			code = [1 + 1 #{}]
-			#{31202B2031} = head last code
-		]
-		--assert all [
-			block? code: transcode "1 + 1"
-			code = [1 + 1 ""]
-			"1 + 1" = head last code
-		]
+	;@@ https://github.com/Oldes/Rebol-issues/issues/1329
+		--assert [1 + 1] = transcode to binary! "1 + 1"
+		--assert [1 + 1] = transcode "1 + 1"
+
 	--test-- "transcode/next"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/535
 		--assert [1 " + 1"]      = transcode/next "1 + 1"