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

make (help "foo") run a search for "foo"

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

3
collects/scheme/help.ss
View File

@ -21,6 +21,9 @@
#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 ...)
(andmap (lambda (s) (string? (syntax-e s))) (syntax->list #'(str ...)))
#'(search-for (list str ...))]
[(help #:search str ...) [(help #:search str ...)
(with-syntax ([(str ...) (with-syntax ([(str ...)
(map (lambda (e) (map (lambda (e)