diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/states.ml | 1 | ||||
-rw-r--r-- | library/states.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/library/states.ml b/library/states.ml index a1c2a095d..96a487b16 100644 --- a/library/states.ml +++ b/library/states.ml @@ -12,6 +12,7 @@ open System type state = Lib.frozen * Summary.frozen let summary_of_state = snd +let replace_summary (lib,_) s = lib, s let freeze ~marshallable = (Lib.freeze ~marshallable, Summary.freeze_summaries ~marshallable) diff --git a/library/states.mli b/library/states.mli index 66de14909..4d5d63e03 100644 --- a/library/states.mli +++ b/library/states.mli @@ -21,6 +21,7 @@ val freeze : marshallable:Summary.marshallable -> state val unfreeze : state -> unit val summary_of_state : state -> Summary.frozen +val replace_summary : state -> Summary.frozen -> state (** {6 Rollback } *) |