diff options
| author | Nicolas Pouillard <np@nicolaspouillard.fr> | 2010-02-03 13:33:19 +0000 |
|---|---|---|
| committer | Nicolas Pouillard <np@nicolaspouillard.fr> | 2010-02-03 13:33:19 +0000 |
| commit | 3cf7b7152b785bc9d4d99c6f92157e63ee3dafa0 (patch) | |
| tree | c7ba97fea777b5e201e8a39613c5debb01c1afee | |
| parent | e9a4f4bdc3adb2708e2ae2a3f80f0f4d4bd97730 (diff) | |
| download | ocaml-3cf7b7152b785bc9d4d99c6f92157e63ee3dafa0.tar.gz | |
ocamlbuild,solver: GC some dead comment
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@9616 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | ocamlbuild/solver.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ocamlbuild/solver.ml b/ocamlbuild/solver.ml index 8077bd2ed7..94b3d930e6 100644 --- a/ocamlbuild/solver.ml +++ b/ocamlbuild/solver.ml @@ -57,13 +57,9 @@ let rec self depth on_the_go_orig target = if Resource.exists_in_source_dir target then Resource.Cache.import_in_build_dir target else - (* FIXME tags of target - let tags = Configuration.tags_of_target target in - let matching_rules = List.filter_opt (Rule.tags_matches tags) rules in *) - let matching_rules = List.filter_opt (Rule.can_produce target) (*matching_*)rules in - match matching_rules with + match List.filter_opt (Rule.can_produce target) rules with | [] -> failed target (Leaf target) - | _ -> + | matching_rules -> let rec until_works rs backtraces = match rs with | [] -> assert false |