The unpac monorepo manager self-hosting as a monorepo using unpac
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
+3
-1
+3
-1
driver/pparse.ml
+3
-1
driver/pparse.ml
···
91
91
| [] -> ast
92
92
| ppxs ->
93
93
let fn =
94
-
List.fold_left (apply_rewriter magic) (write_ast magic ast) ppxs in
94
+
List.fold_left (apply_rewriter magic) (write_ast magic ast)
95
+
(List.rev ppxs)
96
+
in
95
97
read_ast magic fn
96
98
97
99
(* Parse a file or get a dumped syntax tree from it *)