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)] (let* ([path (url-path url)]
[coll (and (pair? path) [coll (and (pair? path)
(pair? (cdr 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 ;; check to see if the docs are installed
(if (and coll (if (and doc-pr
(assoc coll known-docs) (not (has-index-installed? coll-path)))
(not (has-index-installed? (string->path coll)))) (let ([url-str (url->string url)])
(let ([doc-pr (assoc coll known-docs)] (string->url
[url-str (url->string url)]) (make-missing-manual-url coll (cdr doc-pr) url-str)))
(make-missing-manual-url coll (cdr doc-pr) url-str))
url))] url))]
[(and (equal? addon-host (url-host url)) [(and (equal? addon-host (url-host url))

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

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