diff options
author | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-09-29 07:34:20 +0000 |
---|---|---|
committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 1999-09-29 07:34:20 +0000 |
commit | 60b1e4b4cc6783013e055838f5f2f5cca10f7d75 (patch) | |
tree | 0ba591989345a1b523d31be392455bbf6f0eb58a /library/states.mli | |
parent | ea5408dc21bd8748e7d9917e8deaf9c639883475 (diff) |
with_heavy_rollback deplace dans States
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@89 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/states.mli')
-rw-r--r-- | library/states.mli | 9 |
1 files changed, 9 insertions, 0 deletions
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 + + |