diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-06-01 15:40:57 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-06-01 15:40:57 +0200 |
commit | 04756f75bf54b1ccda8c180c62b14c5eaaaabb67 (patch) | |
tree | adbf0a9beef9c5b804fdb4f3a0e7a58bb967a0e0 /library | |
parent | 3a36761a27487e8917e1b59b59abacc2a7e65b95 (diff) | |
parent | c7bd285555153294ec077cfa05c36bb420716f3b (diff) |
Merge PR #7234: Reduce circular dependency constants <-> projections
Diffstat (limited to 'library')
-rw-r--r-- | library/heads.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/heads.ml b/library/heads.ml index 198672a0a..3d5f6a6ff 100644 --- a/library/heads.ml +++ b/library/heads.ml @@ -129,7 +129,7 @@ let compute_head = function let cb = Environ.lookup_constant cst env in let is_Def = function Declarations.Def _ -> true | _ -> false in let body = - if cb.Declarations.const_proj = None && is_Def cb.Declarations.const_body + if not cb.Declarations.const_proj && is_Def cb.Declarations.const_body then Global.body_of_constant cst else None in (match body with |