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)))
(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)
(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
(define (resolve-conflict actions)
@ -176,12 +180,14 @@
(unless suppress
(when (> SR-conflicts 0)
(fprintf (current-error-port)
"~a shift/reduce conflicts~n"
SR-conflicts))
"~a shift/reduce conflict~a~n"
SR-conflicts
(if (= SR-conflicts 1) "" "s")))
(when (> RR-conflicts 0)
(fprintf (current-error-port)
"~a reduce/reduce conflicts~n"
RR-conflicts)))
"~a reduce/reduce conflict~a~n"
RR-conflicts
(if (= RR-conflicts 1) "" "s"))))
table))