commit 2e2c69073016af1de0855bc457913444872e4af0
parent e2bde03810af2c81e09f24727cbffa2f2d0b0db4
Author: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 8 Jun 2008 15:23:51 +0000
fix index output where exporting module's name is not just an identifier
svn: r10190
original commit: 6b721a04f0b3176d3fb6a77d480883903a468f5e
Diffstat:
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git 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)]