diff options
author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-03-18 07:56:15 +0000 |
---|---|---|
committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-03-18 07:56:15 +0000 |
commit | 0880651aa853c3c63bfe289a1f41d6b81ff62549 (patch) | |
tree | 759f894a3a5cdfc77700a9bd6d488953485b2450 /tools/ocamldep.ml | |
parent | 2b884d458dd077a0e7339d68a4ac111c55942cb3 (diff) | |
download | ocaml-0880651aa853c3c63bfe289a1f41d6b81ff62549.tar.gz |
fix PR#972
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4539 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools/ocamldep.ml')
-rw-r--r-- | tools/ocamldep.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tools/ocamldep.ml b/tools/ocamldep.ml index 92efb7d1d9..70c406f9e2 100644 --- a/tools/ocamldep.ml +++ b/tools/ocamldep.ml @@ -116,7 +116,8 @@ let rec add_expr bv exp = Pexp_ident l -> add bv l | Pexp_constant _ -> () | Pexp_let(_, pel, e) -> add_pat_expr_list bv pel; add_expr bv e - | Pexp_function (_, _, pel) -> add_pat_expr_list bv pel + | Pexp_function (_, opte, pel) -> + add_opt add_expr bv opte; add_pat_expr_list bv pel | Pexp_apply(e, el) -> add_expr bv e; List.iter (fun (_,e) -> add_expr bv e) el | Pexp_match(e, pel) -> add_expr bv e; add_pat_expr_list bv pel |