diff options
author | 2013-04-23 18:15:48 +0000 | |
---|---|---|
committer | 2013-04-23 18:15:48 +0000 | |
commit | 4f9ad55d1bd0a92c25316cffe8978ed0184f832d (patch) | |
tree | 935e2548949c168273b0a2cf66dbfba8fb1d16ea /toplevel | |
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 'toplevel')
-rw-r--r-- | toplevel/vernac.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml index e037944f2..67befcb17 100644 --- a/toplevel/vernac.ml +++ b/toplevel/vernac.ml @@ -321,11 +321,14 @@ let rec vernac_com interpfun checknav (loc,com) = interp v | v -> + let rollback = + if !Flags.batch_mode then States.without_rollback + else States.with_heavy_rollback + in let psh = default_set_timeout () in try let status = - States.with_heavy_rollback interpfun - Cerrors.process_vernac_interp_error v + rollback interpfun Cerrors.process_vernac_interp_error v in restore_timeout psh; status |