From 7302411d73278ad9dee1fd54c38d1ce79690a63c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 13 Jun 2009 16:45:31 +0000 Subject: [PATCH] reformat, fix error message svn: r15165 --- collects/syntax/module-reader.ss | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.ss index d6ef0186ff..2bba5b4e70 100644 --- a/collects/syntax/module-reader.ss +++ b/collects/syntax/module-reader.ss @@ -29,15 +29,16 @@ (unless var (set! var default)) ...)) (define (construct-reader lang body) (keywords body - [#:language ~lang lang] - [#:read ~read #'read] - [#:read-syntax ~read-syntax #'read-syntax] - [#:wrapper1 ~wrapper1 #'#f] - [#:wrapper2 ~wrapper2 #'#f] + [#:language ~lang lang] + [#:read ~read #'read] + [#:read-syntax ~read-syntax #'read-syntax] + [#:wrapper1 ~wrapper1 #'#f] + [#:wrapper2 ~wrapper2 #'#f] [#:whole-body-readers? ~whole-body-readers? #'#f] [(when (equal? (and lang #t) (and ~lang #t)) - (err (string-append "must specify either a module path, or #:lang" - (if (and lang ~lang) ", not both" "")))) + (err (string-append + "must specify either a module language, or #:language" + (if (and lang ~lang) ", not both" "")))) (unless (equal? (and ~read #t) (and ~read-syntax #t)) (err "must specify either both #:read and #:read-syntax, or none")) (when (and ~whole-body-readers? (not (and ~read ~read-syntax)))