From cccea9817f1d638be94da0cc7912e92b833b1ac8 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 25 Apr 2001 07:23:04 +0000
Subject: Amelioration message args constructeur

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1709 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/himsg.ml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/toplevel/himsg.ml b/toplevel/himsg.ml
index 9ce8aad992..2942bd314e 100644
--- a/toplevel/himsg.ml
+++ b/toplevel/himsg.ml
@@ -486,8 +486,10 @@ let explain_bad_constructor ctx cstr ind =
 
 let explain_wrong_numarg_of_constructor ctx cstr n =
   let pc = pr_constructor ctx (cstr,[||]) in
-  [<'sTR "The constructor "; pc;
-    'sTR " expects " ; 'iNT n ; 'sTR " arguments. ">]
+    [<'sTR "The constructor "; pc; 'sTR " expects " ; 
+      if n = 0 then [< 'sTR "no argument.">]
+      else [< 'iNT n ; 'sTR " arguments.">]
+    >]
 
 let explain_wrong_predicate_arity ctx pred nondep_arity dep_arity=
   let pp = prterm_env ctx pred in
-- 
cgit v1.2.3