made f1 work in drscheme, fixed a few other bugs

svn: r7781

collects/drscheme/private/help-desk.ss

@@ -1,5 +1,5 @@
-
 #lang scheme/unit
+
 (require (lib "string-constant.ss" "string-constants")
          (lib "mred.ss" "mred")
          (lib "external.ss" "browser")
@@ -8,10 +8,9 @@
          (lib "framework.ss" "framework")
          (lib "class.ss")
          (lib "list.ss")
+         (lib "search.ss" "help")
          "drsig.ss")
 
-  
-  
 (import [prefix drscheme:frame: drscheme:frame^]
         [prefix drscheme:language-configuration: drscheme:language-configuration/internal^])
 (export drscheme:help-desk^)
@@ -73,7 +72,9 @@
 (define (goto-release-notes) (goto-hd-location 'release-notes))
 (define (goto-plt-license) (goto-hd-location 'plt-license))
 
-  (define (get-docs) (error 'help-desk.ss "get-docs"))
+(define (get-docs) 
+  ;(error 'help-desk.ss "get-docs")
+  '())
 
 (define help-desk
   (case-lambda
@@ -83,4 +84,5 @@
     [(key lucky? type) (help-desk key lucky? type 'contains)]
     [(key lucky? type mode) (help-desk key lucky? type mode #f)]
     [(key lucky? type mode language)
+     (generate-search-results (list key))
      (void)]))

collects/help/search.ss

@@ -7,9 +7,11 @@
          scribble/basic
          scribble/manual
          (prefix-in scheme: scribble/scheme)
-         browser/external)
+         browser/external
+         mzlib/contract)
 
-(provide generate-search-results)
+(provide/contract
+ [generate-search-results (-> (listof string?) void?)])
 
 (define (make-extra-content desc)
   ;; Use `desc' to provide more details on the link: