diff options
| author | msozeau | 2013-02-27 16:28:33 +0000 |
|---|---|---|
| committer | msozeau | 2013-02-27 16:28:33 +0000 |
| commit | a10419ad28f22e1d197bf51181b792c050e5f53e (patch) | |
| tree | 9763b0a229d363f7ef14d9185512a5ab6885ee2d /toplevel | |
| parent | b3e1879a09c3623c7a04858a7421b316abd65293 (diff) | |
Update debug code according to reorganization into modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16254 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/vernacentries.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 0ef590cdf5..e735dde0dd 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1170,7 +1170,7 @@ let _ = { optsync = true; optdepr = false; optname = "use of the program extension"; - optkey = ["Program"]; + optkey = ["Program";"Mode"]; optread = (fun () -> !Flags.program_mode); optwrite = (fun b -> Flags.program_mode:=b) } @@ -1796,7 +1796,8 @@ let interp c = Obligations.set_program_mode isprogcmd; try interp c; Locality.check_locality (); - Flags.program_mode := mode; + if not (not mode && !Flags.program_mode && not isprogcmd) then + Flags.program_mode := mode; true with e -> let e = Errors.push e in |