diff options
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 3 | ||||
| -rw-r--r-- | stm/stm.mli | 4 |
2 files changed, 7 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index e96c396ba..c0d71dc93 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2405,6 +2405,9 @@ let edit_at id = VCS.print (); iraise (e, info) +let backup () = VCS.backup () +let restore d = VCS.restore d + (*********************** TTY API (PG, coqtop, coqc) ***************************) (******************************************************************************) diff --git a/stm/stm.mli b/stm/stm.mli index 2453f258c..18ed6fc2e 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -83,6 +83,10 @@ val set_compilation_hints : string -> unit (* Reorders the task queue putting forward what is in the perspective *) val set_perspective : Stateid.t list -> unit +type document +val backup : unit -> document +val restore : document -> unit + (** workers **************************************************************** **) module ProofTask : AsyncTaskQueue.Task |