FEAT: throwing error if QUERY on INPUT port fails from some reason

Author: Oldes

src/core/p-console.c

@@ -138,7 +138,11 @@
 			Set_Block(D_RET, Get_Object_Words(spec));
 			return R_RET;
 		}
-		if (OS_DO_DEVICE(req, RDC_QUERY) < 0) return R_NONE;
+		if (OS_DO_DEVICE(req, RDC_QUERY) < 0) {
+			SET_INTEGER(arg, req->error);
+			Trap1(RE_PROTOCOL, arg);
+			//return R_NONE;
+		}
 
 		Ret_Query_Console(req, D_RET, D_ARG(ARG_QUERY_FIELD), spec);
 		break;

src/os/win32/dev-stdio.c

@@ -463,7 +463,10 @@ static void close_stdio(void)
 ***********************************************************************/
 {
 	CONSOLE_SCREEN_BUFFER_INFO csbiInfo;
-	GetConsoleScreenBufferInfo(Std_Out, &csbiInfo);
+	if(0 == GetConsoleScreenBufferInfo(Std_Out, &csbiInfo)) {
+		req->error = GetLastError();
+		return DR_ERROR;
+	}
 	req->console.buffer_rows = csbiInfo.dwSize.Y;
 	req->console.buffer_cols = csbiInfo.dwSize.X;
 	req->console.window_rows = csbiInfo.srWindow.Bottom - csbiInfo.srWindow.Top + 1;