diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-29 01:42:21 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-12-09 18:17:50 +0100 |
| commit | 5676b113920fb48d4898817d6c0ce3353b06107f (patch) | |
| tree | 71dbe3f412ec441fd72dbf02a70ce9bb3e9a06c7 /engine/evarutil.ml | |
| parent | 8c9166435d6926babf697c3f575a8653f465cc76 (diff) | |
[summary] Adapt STM to the new Summary API.
We need to a partial restore. I think that we could design a better
API, but further work on the toplevel state should improve it
progressively.
Diffstat (limited to 'engine/evarutil.ml')
| -rw-r--r-- | engine/evarutil.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/engine/evarutil.ml b/engine/evarutil.ml index 907f1b1ac..3445b744a 100644 --- a/engine/evarutil.ml +++ b/engine/evarutil.ml @@ -199,9 +199,10 @@ let whd_head_evar sigma c = let meta_counter_summary_name = "meta counter" (* Generator of metavariables *) -let new_meta = - let meta_ctr = Summary.ref 0 ~name:meta_counter_summary_name in - fun () -> incr meta_ctr; !meta_ctr +let meta_ctr, meta_counter_summary_tag = + Summary.ref_tag 0 ~name:meta_counter_summary_name + +let new_meta () = incr meta_ctr; !meta_ctr let mk_new_meta () = EConstr.mkMeta(new_meta()) |