diff options
Diffstat (limited to 'src/process_file.ml')
| -rw-r--r-- | src/process_file.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/process_file.ml b/src/process_file.ml index c2a977da..6d1729a5 100644 --- a/src/process_file.ml +++ b/src/process_file.ml @@ -62,8 +62,6 @@ let get_lexbuf fn = let parse_file (f : string) : Parse_ast.defs = let scanbuf = get_lexbuf f in - let default_type_names = ["bool";"unit";"vector";"range";"list";"bit";"nat"; - "uint8";"uint16";"uint32";"uint64"] in let type_names = try Pre_parser.file Pre_lexer.token scanbuf @@ -75,7 +73,7 @@ let parse_file (f : string) : Parse_ast.defs = raise (Reporting_basic.Fatal_error (Reporting_basic.Err_syntax_locn (l, m))) | Lexer.LexError(s,p) -> raise (Reporting_basic.Fatal_error (Reporting_basic.Err_lex (p, s))) in - let _ = Lexer.type_names := (default_type_names@type_names) in + let () = Lexer.custom_type_names := type_names in let lexbuf = get_lexbuf f in try Parser.file Lexer.token lexbuf |