diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-28 20:11:06 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-05-28 20:11:06 +0200 |
commit | a205bb9f2a93396aad154ec50f6f122cbd46811c (patch) | |
tree | cd1ad9834fa9e6391193b377cc4533f9eba702c5 /engine/termops.ml | |
parent | 81535edc4b21015bd63d23e57ca9d707b4b71f6b (diff) | |
parent | 131ac2af3778a741f5f33e212ef4a57f7a91d20a (diff) |
Merge PR #7521: Fix soundness bug with VM/native and cofixpoints
Diffstat (limited to 'engine/termops.ml')
-rw-r--r-- | engine/termops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index bd07555a5..c52f96079 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -1379,7 +1379,7 @@ let smash_rel_context sign = let fold_named_context_both_sides f l ~init = List.fold_right_and_left f l init let mem_named_context_val id ctxt = - try ignore(Environ.lookup_named_val id ctxt); true with Not_found -> false + try ignore(Environ.lookup_named_ctxt id ctxt); true with Not_found -> false let map_rel_decl f = function | RelDecl.LocalAssum (id, t) -> RelDecl.LocalAssum (id, f t) |