bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 80f1f876278d8e49fafa3f0606df1b16ba5823d7
parent 1863485d73f63e106ae448515dc8c63471d4a8cc
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Tue, 24 Jun 2008 17:35:10 +0000

no arguments => start page

svn: r10441

original commit: a1a53524c08f53efd64a19f25e8525a328a21d66

Diffstat:
M
collects/help/help.ss
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git 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)