diff options
| author | Enrico Tassi | 2021-02-10 13:07:47 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2021-02-11 18:11:01 +0100 |
| commit | 13b22836272ebf66b3e07bab9a5d1ec253194c95 (patch) | |
| tree | dca0b6e91504a45e554ab406286d195687f206c3 /vernac/vernacentries.ml | |
| parent | 16765871394a81975047b37f15a902fcc112dc40 (diff) | |
[vernac] pass the loc of the whole command to the interp function
Diffstat (limited to 'vernac/vernacentries.ml')
| -rw-r--r-- | vernac/vernacentries.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 481bc3071b..664c6b2f36 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2064,7 +2064,7 @@ let vernac_check_guard ~pstate = (* We interpret vernacular commands to a DSL that specifies their allowed actions on proof states *) -let translate_vernac ~atts v = let open Vernacextend in match v with +let translate_vernac ?loc ~atts v = let open Vernacextend in match v with | VernacAbortAll | VernacRestart | VernacUndo _ @@ -2389,4 +2389,4 @@ let translate_vernac ~atts v = let open Vernacextend in match v with (* Extensions *) | VernacExtend (opn,args) -> - Vernacextend.type_vernac ~atts opn args + Vernacextend.type_vernac ?loc ~atts opn args |