diff options
| -rw-r--r-- | parsing/g_vernac.ml4 | 3 | ||||
| -rw-r--r-- | toplevel/vernacentries.ml | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index d10a2950ce..9940a13784 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -67,8 +67,7 @@ GEXTEND Gram vernac: FIRST [ [ IDENT "Time"; v = vernac -> VernacTime v | IDENT "Timeout"; n = natural; v = vernac -> VernacTimeout(n,v) - | locality; v = vernac_aux -> - check_locality (); v ] ] + | locality; v = vernac_aux -> v ] ] ; vernac_aux: (* Better to parse "." here: in case of failure (e.g. in coerce_to_var), *) diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index 0e11ba582a..739193f518 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1406,3 +1406,6 @@ let interp c = match c with (* Extensions *) | VernacExtend (opn,args) -> Vernacinterp.call (opn,args) + +let interp c = interp c ; check_locality () + |