From 80f1f876278d8e49fafa3f0606df1b16ba5823d7 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 24 Jun 2008 17:35:10 +0000
Subject: [PATCH] no arguments => start page

svn: r10441

original commit: a1a53524c08f53efd64a19f25e8525a328a21d66
---
 collects/help/help.ss | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/collects/help/help.ss b/collects/help/help.ss
index 717ed1d8..340a7a7c 100644
--- a/collects/help/help.ss
+++ b/collects/help/help.ss
@@ -1,13 +1,15 @@
 #lang scheme/base
 
-(require "search.ss" scheme/cmdline scheme/list)
+(require "search.ss" scheme/cmdline scheme/list scheme/string)
 
 ;; Minimal command-line arguments, the query string can contain all
 ;; kinds of magic.
 (command-line
  #:handlers
  (lambda (_ . ts)
-   (perform-search (apply string-append (add-between ts " "))))
+   (if (null? ts)
+     (send-main-page)
+     (perform-search (string-append* (add-between ts " ")))))
  '("search-terms")
  (lambda (help-str)
    (display help-str)