summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/compiler/tables.ml
diff options
context:
space:
mode:
authorJacques Garrigue <garrigue at math.nagoya-u.ac.jp>2001-09-17 13:08:34 +0000
committerJacques Garrigue <garrigue at math.nagoya-u.ac.jp>2001-09-17 13:08:34 +0000
commit7ae26d5b11dfb1837e056f5fec127b251d637cb8 (patch)
tree3e33b6f81314ade3de07b1ab6192fa59672dc851 /otherlibs/labltk/compiler/tables.ml
parente22a330b2993fd0bfac334fdb5031bcabc324d69 (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.ml10
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