diff options
author | Xavier Clerc <xavier.clerc@inria.fr> | 2012-10-10 13:59:47 +0000 |
---|---|---|
committer | Xavier Clerc <xavier.clerc@inria.fr> | 2012-10-10 13:59:47 +0000 |
commit | 4dd1e7fe4106c43f2040213ff5d397779cd3350a (patch) | |
tree | 29d65e9125b26eb0443447a9f352fd697db32224 | |
parent | 57aef3bf24875211892570dc21222b8b4287972c (diff) |
PR#5102: ocamlbuild fails when using an unbound variable in rule dependency
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@13002 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
-rw-r--r-- | Changes | 1 | ||||
-rw-r--r-- | ocamlbuild/resource.ml | 2 |
2 files changed, 2 insertions, 1 deletions
@@ -39,6 +39,7 @@ OCaml 4.00.2: ------------- Bug fixes: +- PR#5102: ocamlbuild fails when using an unbound variable in rule dependency - PR#5240: register exception printers for Unix.Unix_error and Dynlink.Error - PR#5300: verbose parameter should implicitly set classic display - PR#5772: problem with marshaling of mutually-recursive functions diff --git a/ocamlbuild/resource.ml b/ocamlbuild/resource.ml index 2ef42487e..4121d194a 100644 --- a/ocamlbuild/resource.ml +++ b/ocamlbuild/resource.ml @@ -377,7 +377,7 @@ end = struct List.map begin fun x -> match x with | A atom -> atom - | V(var, _) -> List.assoc var env + | V(var, _) -> try List.assoc var env with Not_found -> (* unbound variable *) "" end s end end |