Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix FreeVars.free_vars init env argument 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7526 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Nicolas Pouillard 2006-07-20 07:47:52 +00:00
parent fef654ed9d
commit 881e477ca6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
camlp4/Camlp4/Struct/FreeVars.ml
View File

@ -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;