Nicolas Cannasse před 8 roky
rodič
revize
7254cedcff
1 změnil soubory, kde provedl 0 přidání a 2 odebrání
  1. 0 2
      src/typing/typer.ml

+ 0 - 2
src/typing/typer.ml

@@ -556,14 +556,12 @@ let rec unify_call_args' ctx el args r callp inline force_inline =
 		in
 		let contains_tpos e p =
 			let rec loop e =
-				prerr_endline (e.epos.pfile ^ " " ^ string_of_int e.epos.pmin ^  " " ^ string_of_int e.epos.pmax);
 				if Display.encloses_position p e.epos && e.epos.pfile = p.pfile then raise Exit;
 				Type.iter loop e
 			in
 			try
 				loop e; false;
 			with Exit ->
-				prerr_endline "!";
 				true
 		in
 		let check_e = ref None in