diff options
| author | coqbot-app[bot] | 2020-11-04 15:50:44 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-04 15:50:44 +0000 |
| commit | 11cb6dd5f4a719db6926ff0d99a72fbdbbf2d8bf (patch) | |
| tree | 5e0d4fff8db9942812f995701fc3a13d6ec0f0f9 /kernel/cClosure.ml | |
| parent | 4f8e14a8026f01e1dcc1b8929645858d2bbb504e (diff) | |
| parent | af6a928161785e92e7aef7d31ea04b20aa3bd4ca (diff) | |
Merge PR #13258: Eagerly reduce rigid / flex conversion problems
Reviewed-by: SkySkimmer
Diffstat (limited to 'kernel/cClosure.ml')
| -rw-r--r-- | kernel/cClosure.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/kernel/cClosure.ml b/kernel/cClosure.ml index 952237ab99..174125fc57 100644 --- a/kernel/cClosure.ml +++ b/kernel/cClosure.ml @@ -1535,7 +1535,12 @@ let whd_stack infos tab m stk = match Mark.red_state m.mark with knh infos m stk | Red | Cstr -> let k = kni infos tab m stk in - let () = if infos.i_cache.i_share then ignore (fapp_stack k) in (* to unlock Zupdates! *) + let () = + if infos.i_cache.i_share then + (* to unlock Zupdates! *) + let (m', stk') = k in + if not (m == m' && stk == stk') then ignore (zip m' stk') + in k let create_clos_infos ?univs ?(evars=fun _ -> None) flgs env = |