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

fix for PR 8095

Browse Source 
svn: r3265
This commit is contained in:
Robby Findler 2006-06-07 16:54:53 +00:00
parent 3cd092be29
commit fe3186b672
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/help/private/get-help-url.ss
View File

@ -8,11 +8,10 @@
(lib "dirs.ss" "setup")) (lib "dirs.ss" "setup"))
(provide/contract (get-help-url (provide/contract (get-help-url
(((lambda (x) (opt->
(or (path? x) ((or/c path? path-string?))
(path-string? x))))
(string?) (string?)
. opt-> . string?))) string?)))
; given a manual path, convert to absolute Web path ; given a manual path, convert to absolute Web path
; manual path is an anchored path to a doc manual, never a servlet ; manual path is an anchored path to a doc manual, never a servlet

7
collects/help/private/manuals.ss
View File

@ -58,8 +58,11 @@
(let* ([entry (assoc (string->path manual) known-docs)] (let* ([entry (assoc (string->path manual) known-docs)]
[name (or (and entry (cdr entry)) [name (or (and entry (cdr entry))
manual)] manual)]
[href (get-help-url (find-doc-directory manual))]) [doc-dir (find-doc-directory manual)])
`(A ((HREF ,href)) ,name))) (if doc-dir
(let ([href (get-help-url doc-dir)])
`(A ((HREF ,href)) ,name))
name)))
; string string string -> xexpr ; string string string -> xexpr
; man is manual name ; man is manual name