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

Merge pull request #70 from whitequark/master 

Don't execute all phrases twice on >=4.02
This commit is contained in:
Jérémie Dimino 2014-05-12 11:27:55 +01:00
parent 778f2a3fbb 1dc2409107
commit 6e52edc81c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
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.fun_ "" None (Pat.construct unit None)
(Exp.letmodule (with_loc loc "_") (Exp.letmodule (with_loc loc "_")
(Mod.structure (item :: items)) (Mod.structure (item :: items))
(Exp.construct unit None))) (Exp.construct unit None))))
in in
#endif #endif
let check_phrase = Ptop_def [top_def] in let check_phrase = Ptop_def [top_def] in