Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add change that is missing from commit 15776 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15777 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2015-01-16 20:01:40 +00:00
parent 64ee2135de
commit 6a358c7ee7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ocamldoc/odoc_ast.ml
View File

@ -91,9 +91,9 @@ module Typedtree_search =
ident_type_decl_list
| Typedtree.Tstr_class info_list ->
List.iter
(fun (ci, m, s) ->
(fun (ci, s) ->
Hashtbl.add table (C (Name.from_ident ci.ci_id_class))
(Typedtree.Tstr_class [ci, m, s]))
(Typedtree.Tstr_class [ci, s]))
info_list
| Typedtree.Tstr_class_type info_list ->
List.iter
@ -150,7 +150,7 @@ module Typedtree_search =
let search_class_exp table name =
match Hashtbl.find table (C name) with
| (Typedtree.Tstr_class [(ci, _, _ )]) ->
| (Typedtree.Tstr_class [(ci, _ )]) ->
let ce = ci.ci_expr in
(
try