From 60b1e4b4cc6783013e055838f5f2f5cca10f7d75 Mon Sep 17 00:00:00 2001
From: filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 29 Sep 1999 07:34:20 +0000
Subject: with_heavy_rollback deplace dans States

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@89 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/states.mli | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'library/states.mli')

diff --git a/library/states.mli b/library/states.mli
index 06a877802..d648a68ce 100644
--- a/library/states.mli
+++ b/library/states.mli
@@ -1,8 +1,17 @@
 
 (* $Id$ *)
 
+(*s States of the system. *)
+
 type state
 
 val intern_state : string -> unit
 val extern_state : string -> unit
 
+(*s Rollback. [with_heavy_rollback f x] applies [f] to [x] and restores the
+  state of the whole system as it was before the evaluation if an exception 
+  is raised. *)
+
+val with_heavy_rollback : ('a -> 'b) -> 'a -> 'b
+
+
-- 
cgit v1.2.3