From 1a13d1c711769c89dca6932a27a3a2708a064c6a Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 17 Apr 2020 10:42:26 -0700 Subject: [PATCH] grammatic --- words/app.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/words/app.rkt b/words/app.rkt index 0d02f94..8f3ad8a 100644 --- a/words/app.rkt +++ b/words/app.rkt @@ -201,7 +201,7 @@ (make-menu-item "Regenerate" #\R (λ (thing evt) (refresh-wordbox)))) (define (update-copy-button-label count) - (send button-copy set-label (format "copy ~a words" count))) + (send button-copy set-label (format "copy ~a word~a" count (if (= 1 count) "" "s")))) (define (change-word-count amt) (define new-count (max (+ (current-word-count) amt) 0))