FIX: error throwing an error on empty input must be only when used /next or /one refinements

related to: Oldes/Rebol-issues#2511

Author: Oldes

src/core/l-scan.c

@@ -1931,7 +1931,7 @@ extern REBSER *Scan_Full_Block(SCAN_STATE *scan_state, REBYTE mode_char);
 	blk = Scan_Code(&scan_state, 0);
 	DS_RELOAD(ds); // in case stack moved
 
-	if (IS_END((REBVAL*)BLK_SKIP(blk, 0))) {
+	if (next && IS_END((REBVAL*)BLK_SKIP(blk, 0))) {
 		if (relax) {
 			ser = Make_Error(RE_PAST_END, src, 0, 0);
 			SET_ERROR(D_RET, RE_PAST_END, ser);