From 05df842e8528d50d7730c9dbb6f005132ac1ad53 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 15 Feb 2018 15:15:58 -0800
Subject: [PATCH] english: use ?pluralize in count-of-things.

---
 basis/english/english.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/english/english.factor b/basis/english/english.factor
index ae2de23d69..d5c696e8d7 100644
--- a/basis/english/english.factor
+++ b/basis/english/english.factor
@@ -149,12 +149,12 @@ PRIVATE>
 : plural? ( word -- ? )
     [ singularize pluralize ] [ = ] bi ;
 
-: count-of-things ( count word -- str )
-    over 1 = [ pluralize ] unless [ number>string ] dip " " glue ;
-
 : ?pluralize ( count singular -- singular/plural )
     swap 1 = [ pluralize ] unless ;
 
+: count-of-things ( count word -- str )
+    dupd ?pluralize [ number>string ] dip " " glue ;
+
 : a10n ( word -- numeronym )
     dup length 3 > [
         [ 1 head ] [ length 2 - number>string ] [ 1 tail* ] tri