diff options
| author | Nicolas Pouillard <np@nicolaspouillard.fr> | 2006-07-20 07:47:52 +0000 |
|---|---|---|
| committer | Nicolas Pouillard <np@nicolaspouillard.fr> | 2006-07-20 07:47:52 +0000 |
| commit | 881e477ca6eaa571dc56a01dc0bcb6df31c2c9c6 (patch) | |
| tree | b22faad7c7b3e69af0a5a22fe96149d62249a660 /camlp4 | |
| parent | fef654ed9d5df8031cb3399019ab2d7bc7a3d8c3 (diff) | |
Fix FreeVars.free_vars init env argument
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7526 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'camlp4')
| -rw-r--r-- | camlp4/Camlp4/Struct/FreeVars.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/camlp4/Camlp4/Struct/FreeVars.ml b/camlp4/Camlp4/Struct/FreeVars.ml index 4038e85bb..efdeea2d2 100644 --- a/camlp4/Camlp4/Struct/FreeVars.ml +++ b/camlp4/Camlp4/Struct/FreeVars.ml @@ -122,7 +122,7 @@ module Make (Ast : Sig.Camlp4Ast.S) = struct end; - value free_vars init_env e = - let fold = new fold_free_vars S.add init_env in (fold#expr e)#free; + value free_vars env_init e = + let fold = new fold_free_vars S.add ~env_init S.empty in (fold#expr e)#free; end; |