grammatic

5 years ago · 1a13d1c711
parent 33c76adfd5
commit 1a13d1c711
1 changed files with 1 additions and 1 deletions
--- 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))