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)]) (let ([parsed (read-from-string manuals)])
(cond (cond
[(and (list? parsed) [(and (list? parsed)
(andmap symbol? parsed)) (andmap bytes? parsed))
(map symbol->string parsed)] (map bytes->path parsed)]
[else (map car (find-doc-names))]))] [else (map car (find-doc-names))]))]
[else (map car (find-doc-names))])) [else (map car (find-doc-names))]))