diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-23 18:15:48 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-04-23 18:15:48 +0000 |
| commit | 4f9ad55d1bd0a92c25316cffe8978ed0184f832d (patch) | |
| tree | 935e2548949c168273b0a2cf66dbfba8fb1d16ea /library/states.ml | |
| parent | d7a9cafa2be7a83287a3ef12772c82ff7ff2a349 (diff) | |
coqtop -compile: avoid with_heavy_rollback when non-interactive
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16444 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/states.ml')
| -rw-r--r-- | library/states.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/library/states.ml b/library/states.ml index eb597670f..8b8193981 100644 --- a/library/states.ml +++ b/library/states.ml @@ -39,6 +39,10 @@ let with_heavy_rollback f h x = with reraise -> let e = h reraise in (unfreeze st; raise e) +let without_rollback f h x = + try f x + with reraise -> raise (h reraise) + let with_state_protection f x = let st = freeze () in try |