diff options
Diffstat (limited to 'otherlibs/labltk/compiler/lexer.mll')
| -rw-r--r-- | otherlibs/labltk/compiler/lexer.mll | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/otherlibs/labltk/compiler/lexer.mll b/otherlibs/labltk/compiler/lexer.mll index 89d62417a2..8de3956810 100644 --- a/otherlibs/labltk/compiler/lexer.mll +++ b/otherlibs/labltk/compiler/lexer.mll @@ -16,8 +16,10 @@ (* $Id$ *) { +open StdLabels open Lexing open Parser +open Support exception Lexical_error of string let current_line = ref 1 @@ -28,7 +30,7 @@ let current_line = ref 1 let keyword_table = (Hashtbl.create 149 : (string, token) Hashtbl.t) let _ = List.iter - ~f:(fun (str,tok) -> Hashtbl.add keyword_table ~key:str ~data:tok) + ~f:(fun (str,tok) -> Hashtbl'.add keyword_table ~key:str ~data:tok) [ "int", TYINT; "float", TYFLOAT; |