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

make it require one or more strings, just in case

Browse Source 
svn: r13127
This commit is contained in:
Eli Barzilay 2009-01-14 22:39:17 +00:00
parent ac5dcae9e6
commit 62ed5ba3ad
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/scheme/help.ss
View File

@ -21,9 +21,10 @@
#f "expected a module path after #:from" stx #'lib)) #f "expected a module path after #:from" stx #'lib))
(raise-syntax-error (raise-syntax-error
#f "expected an identifier before #:from" stx #'id))] #f "expected an identifier before #:from" stx #'id))]
[(help str ...) [(help str0 str ...)
(andmap (lambda (s) (string? (syntax-e s))) (syntax->list #'(str ...))) (andmap (lambda (s) (string? (syntax-e s)))
#'(search-for (list str ...))] (syntax->list #'(str0 str ...)))
#'(search-for (list str0 str ...))]
[(help #:search str ...) [(help #:search str ...)
(with-syntax ([(str ...) (with-syntax ([(str ...)
(map (lambda (e) (map (lambda (e)