diff options
| author | Pierre-Marie Pédrot | 2017-09-01 00:57:33 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-04 15:16:19 +0200 |
| commit | cd3819db675bd42510eac1bd616ca20e33e7d997 (patch) | |
| tree | 47a17c77b523d6dec70f93f60e18523c3e6351e6 /src/tac2core.ml | |
| parent | 818c49240f2ee6fccd38a556c7e90126606e1837 (diff) | |
Closures now wear the constant they originated from.
Diffstat (limited to 'src/tac2core.ml')
| -rw-r--r-- | src/tac2core.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/tac2core.ml b/src/tac2core.ml index f4486bf0c8..793cb3e535 100644 --- a/src/tac2core.ml +++ b/src/tac2core.ml @@ -647,6 +647,7 @@ let () = define1 "case" begin fun f -> Proofview.tclCASE (thaw f) >>= begin function | Proofview.Next (x, k) -> let k = { + clos_ref = None; clos_env = Id.Map.singleton k_var (Value.of_ext Value.val_kont k); clos_var = [Name e_var]; clos_exp = GTacPrm (prm_apply_kont_h, [GTacVar k_var; GTacVar e_var]); |