Browse Source

don't catch Ctrl+C if HAXEDEBUG=1

Nicolas Cannasse 8 years ago
parent
commit
6b68d27639
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/macro/interp.ml

+ 1 - 1
src/macro/interp.ml

@@ -1991,7 +1991,7 @@ and eval ctx (e,p) =
 			| _ ->
 			| _ ->
 				VNull
 				VNull
 		in
 		in
-		(fun() -> try loop (DynArray.length ctx.stack) with Sys.Break -> throw ctx p "Ctrl+C")
+		(fun() -> try loop (DynArray.length ctx.stack) with Sys.Break when (try Sys.getenv "HAXEDEBUG" <> "1" with _ -> true) -> throw ctx p "Ctrl+C")
 	| EWhile (econd,e,DoWhile) ->
 	| EWhile (econd,e,DoWhile) ->
 		let e = eval ctx e in
 		let e = eval ctx e in
 		let econd = eval ctx econd in
 		let econd = eval ctx econd in