diff options
| author | Maxime Dénès | 2017-03-30 16:36:01 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-03-30 16:36:01 +0200 |
| commit | 12f6a1adf78d565aff9b27d742ffd45aad3b8427 (patch) | |
| tree | 4b6771100fb3e631054dbce89494e37018d00299 | |
| parent | 6f35030205686ccea6b33a3f8368a9a23ead3bb8 (diff) | |
| parent | c5e6f5ee545ee24541836233a18c0c772077fbdf (diff) | |
Merge PR#463: Run non-tactic comands without resilient_command
| -rw-r--r-- | stm/stm.ml | 11 | ||||
| -rw-r--r-- | test-suite/output/ErrorInModule.out | 2 | ||||
| -rw-r--r-- | test-suite/output/ErrorInModule.v | 4 | ||||
| -rw-r--r-- | test-suite/output/ErrorInSection.out | 2 | ||||
| -rw-r--r-- | test-suite/output/ErrorInSection.v | 4 |
5 files changed, 19 insertions, 4 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index f577994ffa..56243b76f9 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2136,10 +2136,13 @@ let known_state ?(redefine_qed=false) ~cache id = if eff then update_global_env () ), (if eff then `Yes else cache), true | `Cmd { cast = x; ceff = eff } -> (fun () -> - resilient_command reach view.next; - vernac_interp id x; - if eff then update_global_env () - ), (if eff then `Yes else cache), true + (match !Flags.async_proofs_mode with + | Flags.APon | Flags.APonLazy -> + resilient_command reach view.next + | Flags.APoff -> reach view.next); + vernac_interp id x; + if eff then update_global_env () + ), (if eff then `Yes else cache), true | `Fork ((x,_,_,_), None) -> (fun () -> resilient_command reach view.next; vernac_interp id x; diff --git a/test-suite/output/ErrorInModule.out b/test-suite/output/ErrorInModule.out new file mode 100644 index 0000000000..851ecd9306 --- /dev/null +++ b/test-suite/output/ErrorInModule.out @@ -0,0 +1,2 @@ +File "stdin", line 3, characters 20-31: +Error: The reference nonexistent was not found in the current environment. diff --git a/test-suite/output/ErrorInModule.v b/test-suite/output/ErrorInModule.v new file mode 100644 index 0000000000..e69e23276b --- /dev/null +++ b/test-suite/output/ErrorInModule.v @@ -0,0 +1,4 @@ +(* -*- mode: coq; coq-prog-args: ("-emacs" "-quick") -*- *) +Module M. + Definition foo := nonexistent. +End M. diff --git a/test-suite/output/ErrorInSection.out b/test-suite/output/ErrorInSection.out new file mode 100644 index 0000000000..851ecd9306 --- /dev/null +++ b/test-suite/output/ErrorInSection.out @@ -0,0 +1,2 @@ +File "stdin", line 3, characters 20-31: +Error: The reference nonexistent was not found in the current environment. diff --git a/test-suite/output/ErrorInSection.v b/test-suite/output/ErrorInSection.v new file mode 100644 index 0000000000..3036f8f05b --- /dev/null +++ b/test-suite/output/ErrorInSection.v @@ -0,0 +1,4 @@ +(* -*- mode: coq; coq-prog-args: ("-emacs" "-quick") -*- *) +Section S. + Definition foo := nonexistent. +End S. |