diff options
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") |