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