bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 1bb5584dc99b1182e1c6c50eb59695b0b53f7e8a
parent 9f946d19320a5b47a0c497d900ef0f1c17f4243d
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Wed, 17 Jul 2013 14:31:41 -0600

path->collects-path: repair for single-collection packages

Added an optional `#:cache' argument that is propagated to
`path->pkg', if necessary.

original commit: 4500c7c4d54a7645b6bfe412df1d270567938427

Diffstat:
M
pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt b/pkgs/scribble-pkgs/scribble-lib/scribble/html-render.rkt
@@ -255,12 +255,14 @@
              root-relative->path
              root-relative?)
 
+    (define path-cache (make-hash))
+
     (define (path->relative p)
       (let ([p (path->main-doc-relative p)])
         (if (path? p)
           (let ([p (path->root-relative p)])
             (if (path? p)
-              (let ([p (path->collects-relative p)])
+              (let ([p (path->collects-relative p #:cache path-cache)])
                 (if (path? p)
                     p
                     (intern-taglet p)))