aboutsummaryrefslogtreecommitdiffhomepage
path: root/parsing/g_zsyntax.ml
diff options
context:
space:
mode:
Diffstat (limited to 'parsing/g_zsyntax.ml')
-rw-r--r--parsing/g_zsyntax.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/parsing/g_zsyntax.ml b/parsing/g_zsyntax.ml
index 5d57c49db..bfbe54c28 100644
--- a/parsing/g_zsyntax.ml
+++ b/parsing/g_zsyntax.ml
@@ -57,7 +57,7 @@ let pos_of_bignat dloc x =
let error_non_positive dloc =
user_err_loc (dloc, "interp_positive",
- str "Only strictly positive numbers in type \"positive\"")
+ str "Only strictly positive numbers in type \"positive\".")
let interp_positive dloc n =
if is_strictly_pos n then pos_of_bignat dloc n
@@ -113,7 +113,7 @@ let n_of_binnat dloc pos_or_neg n =
RRef (dloc, glob_N0)
let error_negative dloc =
- user_err_loc (dloc, "interp_N", str "No negative numbers in type \"N\"")
+ user_err_loc (dloc, "interp_N", str "No negative numbers in type \"N\".")
let n_of_int dloc n =
if is_pos_or_zero n then n_of_binnat dloc true n