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

2014-05-12 14:25:41 +04:00 · 2014-05-12 14:25:41 +04:00 · 1dc2409107
parent 778f2a3fbb
commit 1dc2409107
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