ATRONIX: Treat unhandled events as no activity in Awake_System

This code could cause high CPU usage:
>> p1: open tcp://www.google.com:80
>> p2: open tcp://www.google.com:80
>> wait/only [p1 10]

This happens because when Awake_System is called by WAIT in this cause,
will always return 0 (because of the unhandled LOOKUP event in the port
p1), thus Wait_Ports will set `wt' to 1 ms in very iteration.

Returning -1 from Awake_System in this case will cause `wt' in
Wait_Ports to be doubled in the next iteration, which gives CPU more
time to sleep.

Author: Oldes

src/core/c-port.c

@@ -184,7 +184,7 @@
 	v = Apply_Func(0, awake, port, &tmp, &ref_only, 0); // ds is return value
 
 	// Awake function returns 1 for end of WAIT:
-	return (IS_LOGIC(v) && VAL_LOGIC(v)) ? 1 : 0;
+	return IS_NONE(v) ? -1 : (IS_LOGIC(v) && VAL_LOGIC(v)) ? 1 : 0;
 }
 
 

src/mezz/sys-ports.r

@@ -214,7 +214,11 @@ init-schemes: func [
 				if find waked first ports [return true]
 			]
 
-			false ; keep waiting
+			either zero? n-event [
+				none ;events are ignored
+			][
+				false ; keep waiting
+			]
 		]
 		init: func [port] [
 			;;print ["Init" title]