From 62ed5ba3adef5bf63143ef3704281e23d52c9bec Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 14 Jan 2009 22:39:17 +0000 Subject: [PATCH] make it require one or more strings, just in case svn: r13127 --- collects/scheme/help.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/scheme/help.ss b/collects/scheme/help.ss index a5c0951fb6..c2b78143cd 100644 --- a/collects/scheme/help.ss +++ b/collects/scheme/help.ss @@ -21,9 +21,10 @@ #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 str0 str ...) + (andmap (lambda (s) (string? (syntax-e s))) + (syntax->list #'(str0 str ...))) + #'(search-for (list str0 str ...))] [(help #:search str ...) (with-syntax ([(str ...) (map (lambda (e)