suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed plural in error message

Browse Source 
svn: r14099
This commit is contained in:
Robby Findler 2009-03-14 15:39:47 +00:00
parent 7d71c34ba9
commit fe141d30ba
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
collects/parser-tools/private-yacc/table.ss
View File

@ -129,9 +129,13 @@
(newline port))) (newline port)))
(when (> SR-conflicts 0) (when (> SR-conflicts 0)
(fprintf port "~a shift/reduce conflicts~n" SR-conflicts)) (fprintf port "~a shift/reduce conflict~a~n"
SR-conflicts
(if (= SR-conflicts 1) "" "s")))
(when (> RR-conflicts 0) (when (> RR-conflicts 0)
(fprintf port "~a reduce/reduce conflicts~n" RR-conflicts)))) (fprintf port "~a reduce/reduce conflict~a~n"
RR-conflicts
(if (= RR-conflicts 1) "" "s")))))
;; resolve-conflict : (listof action?) -> action? bool bool ;; resolve-conflict : (listof action?) -> action? bool bool
(define (resolve-conflict actions) (define (resolve-conflict actions)
@ -176,12 +180,14 @@
(unless suppress (unless suppress
(when (> SR-conflicts 0) (when (> SR-conflicts 0)
(fprintf (current-error-port) (fprintf (current-error-port)
"~a shift/reduce conflicts~n" "~a shift/reduce conflict~a~n"
SR-conflicts)) SR-conflicts
(if (= SR-conflicts 1) "" "s")))
(when (> RR-conflicts 0) (when (> RR-conflicts 0)
(fprintf (current-error-port) (fprintf (current-error-port)
"~a reduce/reduce conflicts~n" "~a reduce/reduce conflict~a~n"
RR-conflicts))) RR-conflicts
(if (= RR-conflicts 1) "" "s"))))
table)) table))