diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-11-29 12:55:19 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-29 12:55:19 +0100 |
| commit | 5109763ca7d2a1469b392b271da7c1ed711d4258 (patch) | |
| tree | dfb3fbd1eddcc28cd29648f18c6cd1c6e04d47fb /stm/stm.ml | |
| parent | f303ed9fb26797b9ec7d172fe583e7ee607ae441 (diff) | |
| parent | 9243166490e8c939bbf6aa0316e99025b25e6398 (diff) | |
Merge PR #6199: [vernac] Uniformize type of vernac interpretation.
Diffstat (limited to 'stm/stm.ml')
| -rw-r--r-- | stm/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 0ee9ea084..ab44cc98b 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1023,7 +1023,7 @@ let stm_vernac_interp ?proof ?route id st { verbose; loc; expr } : Vernacstate.t | VernacShow ShowScript -> ShowScript.show_script (); st | expr -> stm_pperr_endline Pp.(fun () -> str "interpreting " ++ Ppvernac.pr_vernac expr); - try Vernacentries.interp ?verbosely:(Some verbose) ?proof st (Loc.tag ?loc expr) + try Vernacentries.interp ?verbosely:(Some verbose) ?proof ~st (Loc.tag ?loc expr) with e -> let e = CErrors.push e in Exninfo.iraise Hooks.(call_process_error_once e) |