aboutsummaryrefslogtreecommitdiffhomepage
path: root/plugins/ltac
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2017-05-31 00:49:36 -0400
committerGravatar Jason Gross <jgross@mit.edu>2017-06-02 20:04:34 -0400
commit42d510ceea82d617ac4e630049d690acbe900688 (patch)
treed68ae2fa7b0815c3d5164b2410e534befbe48039 /plugins/ltac
parenta2a98a4015311af83edcf8fc87aa30a5318bead8 (diff)
Don't double up on periods in anomalies
We don't want "Anomaly: Returned a functional value in a type not recognized as a product type.. Please report at http://coq.inria.fr/bugs/." but instead "Anomaly: Returned a functional value in a type not recognized as a product type. Please report at http://coq.inria.fr/bugs/."
Diffstat (limited to 'plugins/ltac')
-rw-r--r--plugins/ltac/tacenv.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/tacenv.ml b/plugins/ltac/tacenv.ml
index e3c2b4ad5..2d2dcd0c0 100644
--- a/plugins/ltac/tacenv.ml
+++ b/plugins/ltac/tacenv.ml
@@ -55,7 +55,7 @@ let register_ml_tactic ?(overwrite = false) s (t : ml_tactic array) =
if overwrite then
tac_tab := MLTacMap.remove s !tac_tab
else
- CErrors.anomaly (str "Cannot redeclare tactic " ++ pr_tacname s ++ str ".")
+ CErrors.anomaly (str "Cannot redeclare tactic " ++ pr_tacname s)
in
tac_tab := MLTacMap.add s t !tac_tab