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

fix error message

Browse Source
This commit is contained in:
Matthew Flatt 2012-02-29 09:39:31 -07:00
parent 3267738425
commit ab9f63a3a0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/cmdline.rkt
View File

@ -470,7 +470,8 @@
(let ([s (if (= 1 (length flags)) (let ([s (if (= 1 (length flags))
(format "the ~a option can only be specified once" (car flags)) (format "the ~a option can only be specified once" (car flags))
(format "only one instance of one option from ~a is allowed" flags))]) (format "only one instance of one option from ~a is allowed" flags))])
(if orig-multi (if (and orig-multi
(not (equal? flag orig-multi)))
(format "~a; note that ~s is shorthand for ~s, in contrast to ~s" (format "~a; note that ~s is shorthand for ~s, in contrast to ~s"
s s
orig-multi orig-multi