fix finddoc, returns a xexpr now

svn: r8147
This commit is contained in:
Eli Barzilay 2007-12-29 03:25:58 +00:00
parent 526458b36c
commit 5d860138b8
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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]))