From 433f0bc4e5110db09c770022b277c419f8b35f64 Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Fri, 12 Dec 2014 16:40:32 +0100 Subject: Summary: more surgery functions API to let one forge a frozen state out of another frozen state plus some frozen bits --- library/states.mli | 2 ++ 1 file changed, 2 insertions(+) (limited to 'library/states.mli') diff --git a/library/states.mli b/library/states.mli index fae1bfc02..f2aab78c9 100644 --- a/library/states.mli +++ b/library/states.mli @@ -20,6 +20,8 @@ type state val freeze : marshallable:Summary.marshallable -> state val unfreeze : state -> unit +val summary_of_state : state -> Summary.frozen + (** {6 Rollback } *) (** [with_state_protection f x] applies [f] to [x] and restores the -- cgit v1.2.3