let's see where we're at

src/compiler/compiler.ml

@@ -676,8 +676,8 @@ module HighLevel = struct
 				in
 				let code = match ctx with
 					| Some ctx ->
-						(* if not did_hxb && server_mode == SMNone && not !has_display && args = [] then
-							Define.raw_define ctx.com.defines "hxb.roundtrip"; *)
+						if not did_hxb && server_mode == SMNone && not !has_display && args = [] then
+							Define.raw_define ctx.com.defines "hxb.roundtrip";
 						(* Need chdir here because --cwd is eagerly applied in process_params *)
 						Unix.chdir curdir;
 						execute_ctx server_api ctx server_mode
@@ -693,7 +693,7 @@ module HighLevel = struct
 				end else
 					code
 			with ServerCompilationContext.HxbRoundtrip ->
-				(* print_endline "Caught HxbRoundtrip, recursing"; *)
+				print_endline "Caught HxbRoundtrip, recursing";
 				each_args := current_each;
 				Unix.chdir curdir;
 				loop args0 true

src/compiler/haxe.ml

@@ -50,5 +50,6 @@ let args = List.tl (Array.to_list Sys.argv) in
 set_binary_mode_out stdout true;
 set_binary_mode_out stderr true;
 let sctx = ServerCompilationContext.create false in
+Server.enable_cache_mode sctx;
 Server.process sctx (Communication.create_stdio ()) args;
 other()