From 13f75f645e2da13ffc3d2ee6c2e42b2324e11136 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Tue, 17 Apr 2018 10:38:00 +0200 Subject: [stm] expose restore/backup since ~doc is (still) dummy --- stm/stm.ml | 5 +++++ stm/stm.mli | 4 ++++ 2 files changed, 9 insertions(+) (limited to 'stm') 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 -- cgit v1.2.3