suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

partial fix to PR 7705

Browse Source 
svn: r1413
This commit is contained in:
Robby Findler 2005-11-26 15:48:26 +00:00
parent 179715717a
commit dfe0ef11f7
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/help/private/gui.ss
View File

@ -119,14 +119,16 @@
(let* ([path (url-path url)]
[coll (and (pair? path)
(pair? (cdr path))
(cadr path))])
(cadr path))]
[coll-path (and coll (string->path coll))]
[doc-pr (and coll-path (assoc coll-path known-docs))])
;; check to see if the docs are installed
(if (and coll
(assoc coll known-docs)
(not (has-index-installed? (string->path coll))))
(let ([doc-pr (assoc coll known-docs)]
[url-str (url->string url)])
(make-missing-manual-url coll (cdr doc-pr) url-str))
(if (and doc-pr
(not (has-index-installed? coll-path)))
(let ([url-str (url->string url)])
(string->url
(make-missing-manual-url coll (cdr doc-pr) url-str)))
url))]
[(and (equal? addon-host (url-host url))

4
collects/help/private/standard-urls.ss
View File

@ -30,7 +30,7 @@
string?))
(flush-manuals-url string?)
(flush-manuals-path string?)
(make-missing-manual-url (string? string? string? string? . -> . string?))
(make-missing-manual-url (string? string? string? . -> . string?))
(get-hd-location ((lambda (sym) (memq sym hd-location-syms))
. -> .
string))
@ -60,7 +60,7 @@
(define home-page-url (format "http://~a:~a/servlets/home.ss" internal-host internal-port))
(define (make-missing-manual-url cookie coll name link)
(define (make-missing-manual-url coll name link)
(format "http://~a:~a/servlets/missing-manual.ss?manual=~a&name=~a&link=~a"
internal-host
internal-port