commit c5676e888283bba6fd9b9f9fd1088384774a983d parent 9eaed37e8123204cb77d63c6ec8058e1b7d3ed96 Author: Matthew Flatt <mflatt@racket-lang.org> Date: Sun, 8 Jun 2008 11:31:07 +0000 handle symbolic module names property in module-path-index->taglet svn: r10188 original commit: 31d9571a4747b7914570783f621758d57b898c6b Diffstat:
| M | collects/scribble/basic.ss | | | 12 | ++++++++---- |
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss @@ -108,10 +108,14 @@ (if (path? p) ;; If we got a path back anyway, then it's best to use the resolved ;; name; if the current directory has changed since we - ;; the path-index was resolved, then p might not be right - (intern-taglet - (path->main-collects-relative - (resolved-module-path-name (module-path-index-resolve mod)))) + ;; the path-index was resolved, then p might not be right. Also, + ;; the resolved path might be a symbol instead of a path. + (let ([rp (resolved-module-path-name + (module-path-index-resolve mod))]) + (if (path? rp) + (intern-taglet + (path->main-collects-relative rp)) + rp)) (let ([p (if (and (pair? p) (eq? (car p) 'planet)) ;; Normalize planet verion number based on current