Browse files

fix finddoc, returns a xexpr now

svn: r8146
  • Loading branch information...
1 parent e7b85d5 commit 15f06c86c317eff2d3dbd41ebefb239355a497a4 @elibarzilay elibarzilay committed Dec 29, 2007
Showing with 2 additions and 2 deletions.
  1. +1 −1 collects/help/doc.txt
  2. +1 −1 collects/help/private/
@@ -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)))))
[m m]))

0 comments on commit 15f06c8

Please sign in to comment.