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

Don't execute all phrases twice on >=4.02 (fixes #69).

This commit is contained in:
Peter Zotov 2014-05-12 14:25:41 +04:00
parent 778f2a3fbb
commit 1dc2409107
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/uTop.ml
View File

@ -346,9 +346,10 @@ let check_phrase phrase =
with_default_loc loc with_default_loc loc
(fun () -> (fun () ->
Str.eval Str.eval
(Exp.letmodule (with_loc loc "_") (Exp.fun_ "" None (Pat.construct unit None)
(Mod.structure (item :: items)) (Exp.letmodule (with_loc loc "_")
(Exp.construct unit None))) (Mod.structure (item :: items))
(Exp.construct unit None))))
in in
#endif #endif
let check_phrase = Ptop_def [top_def] in let check_phrase = Ptop_def [top_def] in