diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-07-07 17:31:04 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-07-07 17:33:27 +0200 |
| commit | 3264fdaa71b2327a992286a08df0dfbcf78ea4fe (patch) | |
| tree | 2cfcdfd2eb96d82a66a03df38954fd7ff8767684 /checker/environ.ml | |
| parent | 7c7726a798caa6b506a727703de24d2bb5bb3956 (diff) | |
Checker: Fix bug #4282
Adapt to new [projection] abstract type comprising a constant and
a boolean.
Diffstat (limited to 'checker/environ.ml')
| -rw-r--r-- | checker/environ.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/checker/environ.ml b/checker/environ.ml index 710ebc712..c0f366000 100644 --- a/checker/environ.ml +++ b/checker/environ.ml @@ -147,8 +147,8 @@ let evaluable_constant cst env = let is_projection cst env = not (Option.is_empty (lookup_constant cst env).const_proj) -let lookup_projection cst env = - match (lookup_constant cst env).const_proj with +let lookup_projection p env = + match (lookup_constant (Projection.constant p) env).const_proj with | Some pb -> pb | None -> anomaly ("lookup_projection: constant is not a projection") |