CHANGE: don't throw an error when used wait with a negative timeout value

resolves: Oldes/Rebol-issues#2597

Author: Oldes

src/core/n-io.c

@@ -372,7 +372,7 @@ static REBSER *Read_All_File(char *fname)
 	case REB_TIME:
 		timeout = (REBINT) (VAL_TIME(val) / (SEC_SEC / 1000));
 chk_neg:
-		if (timeout < 0) Trap_Range(val);
+		if (timeout < 0) timeout = 0; //Trap_Range(val);
 		break;
 
 	case REB_PORT:

src/tests/units/evaluation-test.r3

@@ -1097,10 +1097,9 @@ Rebol [
 ===start-group=== "WAIT"
 	--test-- "wait -1"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/342
-		--assert all [
-			error? err: try [wait -1]
-			err/id = 'out-of-range
-		]
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2597
+		--assert none? try [wait -1]
+		--assert none? try [wait -1:0:0]
 
 ===end-group===