diff options
author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-09-17 13:08:34 +0000 |
---|---|---|
committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2001-09-17 13:08:34 +0000 |
commit | 7ae26d5b11dfb1837e056f5fec127b251d637cb8 (patch) | |
tree | 3e33b6f81314ade3de07b1ab6192fa59672dc851 /otherlibs/labltk/compiler/tables.ml | |
parent | e22a330b2993fd0bfac334fdb5031bcabc324d69 (diff) |
remove labels from List.assoc/remove_assoc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3767 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/compiler/tables.ml')
-rw-r--r-- | otherlibs/labltk/compiler/tables.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/otherlibs/labltk/compiler/tables.ml b/otherlibs/labltk/compiler/tables.ml index 85029b772..8c14265aa 100644 --- a/otherlibs/labltk/compiler/tables.ml +++ b/otherlibs/labltk/compiler/tables.ml @@ -181,7 +181,7 @@ let declared_type_parser_arity s = (Hashtbl.find types_table s).parser_arity with Not_found -> - try List.assoc s ~map:!types_external + try List.assoc s !types_external with Not_found -> prerr_string "Type "; prerr_string s; @@ -388,10 +388,10 @@ let enter_widget name components = | External, _ -> () end; let commands = - try List.assoc Command ~map:sorted_components + try List.assoc Command sorted_components with Not_found -> [] and externals = - try List.assoc External ~map:sorted_components + try List.assoc External sorted_components with Not_found -> [] in Hashtbl'.add module_table ~key:name @@ -415,10 +415,10 @@ let enter_module name components = | External, _ -> () end; let commands = - try List.assoc Command ~map:sorted_components + try List.assoc Command sorted_components with Not_found -> [] and externals = - try List.assoc External ~map:sorted_components + try List.assoc External sorted_components with Not_found -> [] in Hashtbl'.add module_table ~key:name |