From ac5dcae9e6735e63702effff08075ff9b3eb9d7b Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Wed, 14 Jan 2009 22:35:39 +0000
Subject: [PATCH] make (help "foo") run a search for "foo"

svn: r13126
---
 collects/scheme/help.ss | 3 +++
 1 file changed, 3 insertions(+)

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)