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

reformat, fix error message

Browse Source 
svn: r15165
This commit is contained in:
Eli Barzilay 2009-06-13 16:45:31 +00:00
parent 4e766cdca4
commit 7302411d73
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/syntax/module-reader.ss
View File

@ -36,7 +36,8 @@
[#:wrapper2 ~wrapper2 #'#f] [#:wrapper2 ~wrapper2 #'#f]
[#:whole-body-readers? ~whole-body-readers? #'#f] [#:whole-body-readers? ~whole-body-readers? #'#f]
[(when (equal? (and lang #t) (and ~lang #t)) [(when (equal? (and lang #t) (and ~lang #t))
(err (string-append "must specify either a module path, or #:lang" (err (string-append
"must specify either a module language, or #:language"
(if (and lang ~lang) ", not both" "")))) (if (and lang ~lang) ", not both" ""))))
(unless (equal? (and ~read #t) (and ~read-syntax #t)) (unless (equal? (and ~read #t) (and ~read-syntax #t))
(err "must specify either both #:read and #:read-syntax, or none")) (err "must specify either both #:read and #:read-syntax, or none"))