diff --git a/collects/scheme/help.ss b/collects/scheme/help.ss index dba69b06e3..a5c0951fb6 100644 --- a/collects/scheme/help.ss +++ b/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)