Merge pull request #70 from whitequark/master

Don't execute all phrases twice on >=4.02
2014-05-12 11:27:55 +01:00 · 2014-05-12 11:27:55 +01:00 · 6e52edc81c
parent 778f2a3fbb 1dc2409107
commit 6e52edc81c
1 changed files with 4 additions and 3 deletions
--- a/src/lib/uTop.ml
+++ b/src/lib/uTop.ml
@ -346,9 +346,10 @@ let check_phrase phrase =
          with_default_loc loc
            (fun () ->
               Str.eval
-                 (Exp.letmodule (with_loc loc "_")
-                    (Mod.structure (item :: items))
-                    (Exp.construct unit None)))
+                 (Exp.fun_ "" None (Pat.construct unit None)
+                   (Exp.letmodule (with_loc loc "_")
+                      (Mod.structure (item :: items))
+                      (Exp.construct unit None))))
        in
 #endif
        let check_phrase = Ptop_def [top_def] in