fix finddoc, returns a xexpr now
svn: r8147
This commit is contained in:
parent
526458b36c
commit
5d860138b8
|
@ -180,7 +180,7 @@ documentation.
|
|||
> (finddoc manual index-key label)
|
||||
This procedure accepts three strings. The first is the name of
|
||||
a doc collection, the second is an index entry in that manual, and
|
||||
the final is a descriptive string. It returns a string representation
|
||||
the final is a descriptive string. It returns a xexpr representation
|
||||
of an anchor (in HTML) that points to that index entry in the manual.
|
||||
If the manual is not found, or the index-key is not in the manual,
|
||||
it returns html code that shows an error. Because the link is
|
||||
|
|
|
@ -16,7 +16,7 @@
|
|||
(match (lookup manual index-key label)
|
||||
[(docdir index-key filename anchor title)
|
||||
`(a ((href ,(string-append
|
||||
"file:" (build-path docdir filename))))
|
||||
"file:" (path->string (build-path docdir filename)))))
|
||||
,label)]
|
||||
[m m]))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user