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 a1c2a095d0..96a487b160 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 66de14909a..4d5d63e037 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 } *) |