[lexer] remove argument that's always true

src/syntax/lexer.ml

@@ -109,10 +109,10 @@ let is_valid_identifier s = try
 with Exit ->
 	false
 
-let init file do_add =
+let init file =
 	let f = make_file file in
 	cur := f;
-	if do_add then Hashtbl.replace all_files file f
+	Hashtbl.replace all_files file f
 
 let save() =
 	!cur

src/syntax/parserEntry.ml

@@ -260,7 +260,7 @@ let parse_string com s p error inlined =
 		syntax_errors := old_syntax_errors;
 		Lexer.restore old
 	in
-	Lexer.init p.pfile true;
+	Lexer.init p.pfile;
 	if not inlined then begin
 		display_position#reset;
 		in_display_file := false;

src/typing/typeloadParse.ml

@@ -29,7 +29,7 @@ open Error
 
 let parse_file_from_lexbuf com file p lexbuf =
 	let t = Timer.timer ["parsing"] in
-	Lexer.init file true;
+	Lexer.init file;
 	incr stats.s_files_parsed;
 	let parse_result = try
 		ParserEntry.parse com.defines lexbuf file