From cc8793665fd209d10f21d1ee40259d01abc1aba6 Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Tue, 13 May 2014 18:41:07 +0400 Subject: [PATCH] Revert "Add a shim for #ppx directive for 4.02." This reverts commit 5cda9ffb9935e84109e9b33d2ed6f4753a46cc29. The patch was accepted into 4.02 after all: https://github.com/ocaml/ocaml/commit/11bf27a9365166f933fe28972a7720fdfe58d1da --- src/lib/uTop_main.ml | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml index a9ff1c8..49a3c39 100644 --- a/src/lib/uTop_main.ml +++ b/src/lib/uTop_main.ml @@ -85,13 +85,6 @@ let parse_input_multi input = in (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 buf = Buffer.create 32 in let preprocess input =