fixed bug with manuals showing up wrong

svn: r1478
This commit is contained in:
Robby Findler 2005-12-02 03:01:03 +00:00
parent d7b2729414
commit d7029f6406

View File

@ -299,8 +299,8 @@ is stored in a module top-level and that's namespace-specific.
(let ([parsed (read-from-string manuals)])
(cond
[(and (list? parsed)
(andmap symbol? parsed))
(map symbol->string parsed)]
(andmap bytes? parsed))
(map bytes->path parsed)]
[else (map car (find-doc-names))]))]
[else (map car (find-doc-names))]))