fix index output where exporting module's name is not just an identifier
svn: r10190 original commit: 6b721a04f0b3176d3fb6a77d480883903a468f5e
This commit is contained in:
parent
e2bde03810
commit
2e2c690730
|
@ -278,7 +278,8 @@
|
||||||
(define (get-desc entry)
|
(define (get-desc entry)
|
||||||
(let ([desc (cadddr entry)])
|
(let ([desc (cadddr entry)])
|
||||||
(cond [(exported-index-desc? desc)
|
(cond [(exported-index-desc? desc)
|
||||||
(cons 'libs (map symbol->string
|
(cons 'libs (map (lambda (l)
|
||||||
|
(format "~s" l))
|
||||||
(exported-index-desc-from-libs desc)))]
|
(exported-index-desc-from-libs desc)))]
|
||||||
[(module-path-index-desc? desc) '(mod)]
|
[(module-path-index-desc? desc) '(mod)]
|
||||||
[(part-index-desc? desc) '(part)]
|
[(part-index-desc? desc) '(part)]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user