aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm
diff options
context:
space:
mode:
authorGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2018-04-18 16:47:48 +0200
committerGravatar Emilio Jesus Gallego Arias <e+git@x80.org>2018-04-18 16:47:48 +0200
commit236182069946d603d90709277c3c9f9f0b747720 (patch)
tree081f1c3cedb062b60aa6020dda94a1c2ea76f94b /stm
parent8956ab2ff2c687f99c473bbd1849fbce36863fdc (diff)
parent13f75f645e2da13ffc3d2ee6c2e42b2324e11136 (diff)
Merge PR #7280: [stm] expose restore/backup since ~doc is (still) dummy
Diffstat (limited to 'stm')
-rw-r--r--stm/stm.ml5
-rw-r--r--stm/stm.mli4
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