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

better error when a manual is not found in known-docs

Browse Source 
svn: r7080
This commit is contained in:
Eli Barzilay 2007-08-11 00:04:59 +00:00
parent 99c1ee330c
commit e304444620
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -146,6 +146,10 @@
(not (has-index-installed? path))) (not (has-index-installed? path)))
;; Manual not installed... ;; Manual not installed...
(let ([doc-pr (assoc (string->path manual) known-docs)]) (let ([doc-pr (assoc (string->path manual) known-docs)])
(unless doc-pr
(error 'remap-url
"Internal error: manual ~s not found in known-docs"
manual))
(string->url (string->url
(make-missing-manual-url manual (make-missing-manual-url manual
(cdr doc-pr) (cdr doc-pr)