From 43de332b13260f0ef3a859f8a618d74d6fe85fd2 Mon Sep 17 00:00:00 2001 From: Jacques Garrigue Date: Aug 25 2012 11:34:27 +0000 Subject: typo git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12882 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- diff --git a/tools/depend.ml b/tools/depend.ml index 0ad748d..80edef0 100644 --- a/tools/depend.ml +++ b/tools/depend.ml @@ -186,7 +186,7 @@ and add_pat_expr_list bv pel = and add_bindings recf bv pel = let bv' = List.fold_left (fun bv (p, _) -> add_pattern bv p) bv pel in - let bv = if recf = Recursive then bv else bv' in + let bv = if recf = Recursive then bv' else bv in List.iter (fun (_, e) -> add_expr bv e) pel; bv'