fix index output where exporting module's name is not just an identifier

svn: r10190 original commit: 6b721a04f0b3176d3fb6a77d480883903a468f5e
2008-06-08 15:23:51 +00:00 · 2008-06-08 15:23:51 +00:00 · 2e2c690730
commit 2e2c690730
parent e2bde03810
1 changed files with 2 additions and 1 deletions
--- a/collects/scribble/basic.ss
+++ b/collects/scribble/basic.ss
@ -278,7 +278,8 @@
  (define (get-desc entry)
    (let ([desc (cadddr entry)])
      (cond [(exported-index-desc? desc)
-             (cons 'libs (map symbol->string
+             (cons 'libs (map (lambda (l)
+                                (format "~s" l))
                              (exported-index-desc-from-libs desc)))]
            [(module-path-index-desc? desc) '(mod)]
            [(part-index-desc? desc) '(part)]