Fix order of application of ppx rewriters (matching the order on the command-line).

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14086 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2013-09-10 14:15:47 +00:00 · 2013-09-10 14:15:47 +00:00 · eb0f68d351
parent e01f145c2e
commit eb0f68d351
1 changed files with 3 additions and 1 deletions
--- a/driver/pparse.ml
+++ b/driver/pparse.ml
@ -91,7 +91,9 @@ let apply_rewriters magic ast =
  | [] -> ast
  | ppxs ->
      let fn =
-        List.fold_left (apply_rewriter magic) (write_ast magic ast) ppxs in
+        List.fold_left (apply_rewriter magic) (write_ast magic ast)
+          (List.rev ppxs)
+      in
      read_ast magic fn

 (* Parse a file or get a dumped syntax tree from it *)