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

… value resolves: Oldes/Rebol-issues#2597
Oldes · Apr 29, 2024 · 25d4e85 · 25d4e85
1 parent ea437a6
commit 25d4e85
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/src/core/n-io.c b/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:

diff --git a/src/tests/units/evaluation-test.r3 b/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===