diff options
author | Alain Frisch <alain@frisch.fr> | 2013-09-26 08:03:49 +0000 |
---|---|---|
committer | Alain Frisch <alain@frisch.fr> | 2013-09-26 08:03:49 +0000 |
commit | 91b2f18ef8731c31501de0d27f60288706b969e3 (patch) | |
tree | f75d28f811436777a4b6bf49469050a77ecbf375 /experimental | |
parent | 48edce920bafc02702b975eedb0e3d6039744784 (diff) | |
download | ocaml-91b2f18ef8731c31501de0d27f60288706b969e3.tar.gz |
Cleanup ppx API.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14180 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'experimental')
-rw-r--r-- | experimental/frisch/ifdef.ml | 4 | ||||
-rw-r--r-- | experimental/frisch/test_ifdef.ml | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/experimental/frisch/ifdef.ml b/experimental/frisch/ifdef.ml index c784a1e52b..6263b59a26 100644 --- a/experimental/frisch/ifdef.ml +++ b/experimental/frisch/ifdef.ml @@ -45,7 +45,7 @@ let getenv loc arg = let empty_str_item = Str.include_ (Mod.structure []) -let ifdef = +let ifdef _args = let stack = ref [] in let eval_attributes = List.for_all @@ -115,4 +115,4 @@ let ifdef = ); } -let () = Ast_mapper.main ifdef +let () = Ast_mapper.run_main ifdef diff --git a/experimental/frisch/test_ifdef.ml b/experimental/frisch/test_ifdef.ml index 4b7eafb344..8a18cdaa5f 100644 --- a/experimental/frisch/test_ifdef.ml +++ b/experimental/frisch/test_ifdef.ml @@ -22,3 +22,4 @@ let () = Printf.printf "compiled by user %s in directory %s\n%!" [%GETENV USER] [%GETENV PWD] + |