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

remove #:from from error message, a little clearer code

Browse Source 
svn: r13130
This commit is contained in:
Eli Barzilay 2009-01-14 22:57:52 +00:00
parent 9e341c4e0d
commit 559363bc2b
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/scheme/help.ss
View File

@ -14,13 +14,13 @@
(identifier? #'id)
#'(find-help (quote-syntax id))]
[(help id #:from lib)
(if (identifier? #'id)
(if (module-path? (syntax->datum #'lib))
#'(find-help/lib (quote id) (quote lib))
(raise-syntax-error
#f "expected a module path after #:from" stx #'lib))
(raise-syntax-error
#f "expected an identifier before #:from" stx #'id))]
(cond [(not (identifier? #'id))
(raise-syntax-error
#f "expected an identifier before #:from" stx #'id)]
[(not (module-path? (syntax->datum #'lib)))
(raise-syntax-error
#f "expected a module path after #:from" stx #'lib)]
[else #'(find-help/lib (quote id) (quote lib))])]
[(help str0 str ...)
(andmap (lambda (s) (string? (syntax-e s)))
(syntax->list #'(str0 str ...)))
@ -36,8 +36,9 @@
[_
(raise-syntax-error
#f
(string-append "expects any number of literal strings, a single identifer, a #:from clause, or a"
" #:search clause; try `(help help)' for more information")
(string-append "expects a single identifer, any number of literal"
" strings, or a #:search clause;"
" try `(help help)' for more information")
stx)])))
(define (open-help-start)