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

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

@ -29,15 +29,16 @@
(unless var (set! var default)) ...)) (unless var (set! var default)) ...))
(define (construct-reader lang body) (define (construct-reader lang body)
(keywords body (keywords body
[#:language ~lang lang] [#:language ~lang lang]
[#:read ~read #'read] [#:read ~read #'read]
[#:read-syntax ~read-syntax #'read-syntax] [#:read-syntax ~read-syntax #'read-syntax]
[#:wrapper1 ~wrapper1 #'#f] [#:wrapper1 ~wrapper1 #'#f]
[#: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
(if (and lang ~lang) ", not both" "")))) "must specify either a module language, or #:language"
(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"))
(when (and ~whole-body-readers? (not (and ~read ~read-syntax))) (when (and ~whole-body-readers? (not (and ~read ~read-syntax)))