Merge pull request #70 from whitequark/master
Don't execute all phrases twice on >=4.02
This commit is contained in:
commit
6e52edc81c
|
@ -346,9 +346,10 @@ let check_phrase phrase =
|
|||
with_default_loc loc
|
||||
(fun () ->
|
||||
Str.eval
|
||||
(Exp.fun_ "" None (Pat.construct unit None)
|
||||
(Exp.letmodule (with_loc loc "_")
|
||||
(Mod.structure (item :: items))
|
||||
(Exp.construct unit None)))
|
||||
(Exp.construct unit None))))
|
||||
in
|
||||
#endif
|
||||
let check_phrase = Ptop_def [top_def] in
|
||||
|
|
Loading…
Reference in New Issue