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

Revert "Add a shim for #ppx directive for 4.02." 

This reverts commit 5cda9ffb99.

The patch was accepted into 4.02 after all:
11bf27a936
This commit is contained in:
Peter Zotov 2014-05-13 18:41:07 +04:00
parent 6e52edc81c
commit cc8793665f
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lib/uTop_main.ml
View File

@ -85,13 +85,6 @@ let parse_input_multi input =
in in
(result, Buffer.contents buf) (result, Buffer.contents buf)
#if ocaml_version = (4, 02, 0)
(* #ppx missed the 4.02 merge window. :/ *)
let () =
Hashtbl.add Toploop.directive_table "ppx"
(Toploop.Directive_string(fun s -> Clflags.all_ppx := s :: !Clflags.all_ppx))
#endif
let parse_and_check input eos_is_error = let parse_and_check input eos_is_error =
let buf = Buffer.create 32 in let buf = Buffer.create 32 in
let preprocess input = let preprocess input =