diff options
Diffstat (limited to 'stm')
-rw-r--r-- | stm/stm.ml | 5 | ||||
-rw-r--r-- | stm/stm.mli | 4 |
2 files changed, 9 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 326b6d1c2..8830464c6 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -3207,4 +3207,9 @@ let forward_feedback_hook = Hooks.forward_feedback_hook let unreachable_state_hook = Hooks.unreachable_state_hook let () = Hook.set Obligations.stm_get_fix_exn (fun () -> !State.fix_exn_ref) +type document = VCS.vcs +let backup () = VCS.backup () +let restore d = VCS.restore d + + (* vim:set foldmethod=marker: *) diff --git a/stm/stm.mli b/stm/stm.mli index 7a720aa72..35ce77a38 100644 --- a/stm/stm.mli +++ b/stm/stm.mli @@ -283,3 +283,7 @@ val get_all_proof_names : doc:doc -> Id.t list (** Enable STM debugging *) val stm_debug : bool ref + +type document +val backup : unit -> document +val restore : document -> unit |