haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix for trunk

This commit is contained in:
Jeremie Dimino 2014-05-14 11:37:13 +01:00
parent 7175551183
commit 6124f722f0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lib/uTop_complete.ml
View File

@ -552,7 +552,7 @@ let lookup_module = Env.lookup_module
let find_module = Env.find_module
#else
let lookup_module id env =
let path = Env.lookup_module id env in
let path = Env.lookup_module id env ~load:true in
(path, (Env.find_module path env).md_type)
let find_module path env = (Env.find_module path env).md_type
#endif

2
src/lib/uTop_main.ml
View File

@ -1037,7 +1037,7 @@ let typeof sid =
#if ocaml_version < (4, 02, 0)
let (path, mod_typ) = Env.lookup_module id env in
#else
let path = Env.lookup_module id env in
let path = Env.lookup_module id env ~load:true in
let mod_typ = (Env.find_module path env).Types.md_type in
#endif
let id = Ident.create (Path.name path) in