From 433f0bc4e5110db09c770022b277c419f8b35f64 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <Enrico.Tassi@inria.fr>
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.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'library/states.ml')

diff --git a/library/states.ml b/library/states.ml
index 200b14517..de03ca7c0 100644
--- a/library/states.ml
+++ b/library/states.ml
@@ -11,6 +11,8 @@ open System
 
 type state = Lib.frozen * Summary.frozen
 
+let summary_of_state = snd
+
 let freeze ~marshallable =
   (Lib.freeze ~marshallable, Summary.freeze_summaries ~marshallable)
 
-- 
cgit v1.2.3