diff options
Diffstat (limited to 'vernac/vernacinterp.ml')
| -rw-r--r-- | vernac/vernacinterp.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/vernac/vernacinterp.ml b/vernac/vernacinterp.ml index 725436fef..47dec1958 100644 --- a/vernac/vernacinterp.ml +++ b/vernac/vernacinterp.ml @@ -74,11 +74,8 @@ let call ?locality ?loc (opn,converted_args) = phase := "Checking arguments"; let hunk = callback converted_args in phase := "Executing command"; - Locality.LocalityFixme.set locality; let atts = { loc; locality } in - let res = hunk ~atts in - Locality.LocalityFixme.assert_consumed (); - res + hunk ~atts with | Drop -> raise Drop | reraise -> |