From 93c8a663d5c3f5f43b20feb8af3022151ffd760e Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Fri, 24 Sep 1999 15:03:03 +0200
Subject: [PATCH] Fixed plural s.

Rev: src/array.c:1.55
Rev: src/mapping.c:1.41
Rev: src/multiset.c:1.15
---
 src/array.c    | 6 ++++--
 src/mapping.c  | 6 ++++--
 src/multiset.c | 6 ++++--
 3 files changed, 12 insertions(+), 6 deletions(-)

diff --git a/src/array.c b/src/array.c
index 3bda19735a..3bbc0ab5e1 100644
--- a/src/array.c
+++ b/src/array.c
@@ -22,7 +22,7 @@
 #include "security.h"
 #include "stuff.h"
 
-RCSID("$Id: array.c,v 1.54 1999/09/16 23:56:08 hubbe Exp $");
+RCSID("$Id: array.c,v 1.55 1999/09/24 13:03:01 noring Exp $");
 
 struct array empty_array=
 {
@@ -1512,7 +1512,9 @@ void describe_array(struct array *a,struct processing *p,int indent)
     }
   }
   
-  sprintf(buf,"({ /* %ld elements */\n",(long)a->size);
+  sprintf(buf, a->size == 1 ? "({ /* %ld element */\n" :
+	                      "({ /* %ld elements */\n",
+	  (long)a->size);
   my_strcat(buf);
   describe_array_low(a,&doing,indent);
   my_putchar('\n');
diff --git a/src/mapping.c b/src/mapping.c
index 0b2b7cad65..7d7a1b35ae 100644
--- a/src/mapping.c
+++ b/src/mapping.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: mapping.c,v 1.40 1999/09/06 10:48:07 grubba Exp $");
+RCSID("$Id: mapping.c,v 1.41 1999/09/24 13:03:02 noring Exp $");
 #include "main.h"
 #include "object.h"
 #include "mapping.h"
@@ -764,7 +764,9 @@ void describe_mapping(struct mapping *m,struct processing *p,int indent)
     }
   }
   
-  sprintf(buf,"([ /* %ld elements */\n",(long) m->size);
+  sprintf(buf, m->size == 1 ? "([ /* %ld element */\n" :
+	                      "([ /* %ld elements */\n",
+	  (long)m->size);
   my_strcat(buf);
 
   q=0;
diff --git a/src/multiset.c b/src/multiset.c
index 57b32395df..e3feadfa77 100644
--- a/src/multiset.c
+++ b/src/multiset.c
@@ -16,7 +16,7 @@
 #include "gc.h"
 #include "security.h"
 
-RCSID("$Id: multiset.c,v 1.14 1999/04/13 20:10:05 hubbe Exp $");
+RCSID("$Id: multiset.c,v 1.15 1999/09/24 13:03:03 noring Exp $");
 
 struct multiset *first_multiset;
 
@@ -209,7 +209,9 @@ void describe_multiset(struct multiset *l,struct processing *p,int indent)
     }
   }
   
-  sprintf(buf,"(< /* %ld elements */\n",(long)l->ind->size);
+  sprintf(buf, l->ind->size == 1 ? "(< /* %ld element */\n" :
+	                           "(< /* %ld elements */\n",
+	  (long)l->ind->size);
   my_strcat(buf);
   describe_array_low(l->ind,&doing,indent);
   my_putchar('\n');
-- 
GitLab