From 881e477ca6eaa571dc56a01dc0bcb6df31c2c9c6 Mon Sep 17 00:00:00 2001
From: Nicolas Pouillard <np@nicolaspouillard.fr>
Date: Thu, 20 Jul 2006 07:47:52 +0000
Subject: [PATCH] Fix FreeVars.free_vars init env argument

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7526 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
 camlp4/Camlp4/Struct/FreeVars.ml | 4 ++--
 1 file 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;