Fix compilation-server-test output always being enabled (#6271)

This confuses vshaxe completion, escpecially since the output format is also JSON.

src/compiler/server.ml

@@ -202,7 +202,7 @@ let rec wait_loop process_params verbose accept =
 		Printf.sprintf "%2s,%3s: " sign_id (short_platform_name com.platform)
 	in
 	let process_server_message com tabs =
-		if true || Common.raw_defined com "compilation-server-test" then (fun message ->
+		if Common.raw_defined com "compilation-server-test" then (fun message ->
 			let module_path m = JString (s_type_path m.m_path) in
 			let kind,data = match message with
 				| AddedDirectory dir -> "addedDirectory",JString dir
@@ -723,4 +723,4 @@ and do_connect host port args =
 	in
 	loop();
 	process();
-	if !has_error then exit 1
+	if !has_error then exit 1