From 1bb5584dc99b1182e1c6c50eb59695b0b53f7e8a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 17 Jul 2013 14:31:41 -0600 Subject: [PATCH] path->collects-path: repair for single-collection packages Added an optional `#:cache' argument that is propagated to `path->pkg', if necessary. original commit: 4500c7c4d54a7645b6bfe412df1d270567938427 --- 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 index 3d2dd7cc..dca0c9f0 100644 --- 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)))