new scheme/cmdline, refine -r/-u to imply -N

svn: r7989

original commit: 138a38ea04bce3f7f3294887eaae6e980e91b3e5

collects/help/help.ss

@@ -1,18 +1,15 @@
 #lang scheme/base
 
 (require "search.ss"
-         net/sendurl ; browser/external
+         net/sendurl
          setup/dirs
-         mzlib/cmdline)
+         scheme/cmdline)
 
-(define search-terms '())
-(command-line "Help Desk"
-              (current-command-line-arguments)
-              (args search-term (set! search-terms search-term)))
-              
-(cond
-  [(null? search-terms)
+(command-line
+ #:args search-term
+ (cond
+  [(null? search-term)
    (let ([dest-path (build-path (find-doc-dir) "start" "index.html")])
      (send-url (format "file://~a" (path->string dest-path))))]
   [else
-   (generate-search-results search-terms)])
+   (generate-search-results search-term)]))

collects/help/search.ss

@@ -7,7 +7,7 @@
          scribble/basic
          scribble/manual
          (prefix-in scheme: scribble/scheme)
-         net/sendurl ; browser/external
+         net/sendurl
          mzlib/contract)
 
 (provide/contract