diff options
| author | Enrico Tassi | 2014-11-09 19:44:17 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2014-11-09 19:44:17 +0100 |
| commit | ce80fa3cb3e6d8809bb3ee015bff39c67c0aed16 (patch) | |
| tree | be80159f44855799c885174910de3931fdde07b2 /stm | |
| parent | 91c2a866e7827c0ede0539cb49f924b68db569a9 (diff) | |
new: Optimize Proof, Optimize Heap
- drops all Defined entries from the evar map (applying the subst to the
initial evar and the undefined evars types).
- call Gc.compact
Now the question is: where should these two commands be documented?
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 1 | ||||
| -rw-r--r-- | stm/vernac_classifier.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 53eb1a3f29..cc960a267a 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -223,3 +223,4 @@ let rec classify_vernac e = let classify_as_query = VtQuery (true,(Stateid.dummy,Feedback.default_route)), VtLater let classify_as_sideeff = VtSideff [], VtLater +let classify_as_proofstep = VtProofStep false, VtLater diff --git a/stm/vernac_classifier.mli b/stm/vernac_classifier.mli index 329c901988..41e3661e6a 100644 --- a/stm/vernac_classifier.mli +++ b/stm/vernac_classifier.mli @@ -24,4 +24,5 @@ val set_undo_classifier : (vernac_expr -> vernac_classification) -> unit (** Standard constant classifiers *) val classify_as_query : vernac_classification val classify_as_sideeff : vernac_classification +val classify_as_proofstep : vernac_classification |