From eb863af14628cd13ceb455c406937c717c8d3ee5 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 2 Nov 2014 11:51:20 +0100
Subject: Plural and singular forms in error messages.

---
 tactics/tacticals.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tactics')

diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml
index 2a21c53ab6..bc7e5f7cda 100644
--- a/tactics/tacticals.ml
+++ b/tactics/tacticals.ml
@@ -345,7 +345,7 @@ module New = struct
             | SizeMismatch (i,_)->
                 let errmsg =
                   str"Incorrect number of goals" ++ spc() ++
-                  str"(expected "++int i++str" tactics)"
+                  str"(expected "++int i++str(String.plural i " tactic") ++ str")"
                 in
                 tclFAIL 0 errmsg
             | reraise -> tclZERO reraise
@@ -368,7 +368,7 @@ module New = struct
             | SizeMismatch (i,_)->
                 let errmsg =
                   str"Incorrect number of goals" ++ spc() ++
-                  str"(expected "++int i++str" tactics)"
+                  str"(expected "++int i++str(String.plural i " tactic") ++ str")"
                 in
                 tclFAIL 0 errmsg
             | reraise -> tclZERO reraise
-- 
cgit v1.2.3