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

svn: r13126

collects/scheme/help.ss

@@ -21,6 +21,9 @@
             #f "expected a module path after #:from" stx #'lib))
          (raise-syntax-error
           #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 ...)
        (with-syntax ([(str ...)
                       (map (lambda (e)