浏览代码

Add all parsed files to lexer cache (closes #3387, reopens #3188)

Dan Korostelev 11 年之前
父节点
当前提交
20d9417046
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      typer.ml

+ 1 - 1
typer.ml

@@ -346,7 +346,7 @@ let parse_string com s p inlined =
 		Lexer.restore old;
 		Parser.display_error := old_de
 	in
-	Lexer.init p.pfile (ExtString.String.ends_with p.pfile ".hx");
+	Lexer.init p.pfile true;
 	Parser.display_error := (fun e p -> raise (Parser.Error (e,p)));
 	if not inlined then Parser.resume_display := null_pos;
 	let pack, decls = try