From 4bf2c9b5f8b4dd52977d11285db83122c2ac1b8c Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 25 Aug 2015 14:04:24 -0700 Subject: [PATCH] small correction --- cache.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/cache.rkt b/cache.rkt index bf2c52d..07e6957 100644 --- a/cache.rkt +++ b/cache.rkt @@ -85,9 +85,8 @@ [(world:current-compile-cache-active) (define key (paths->key path)) (define cache-dir (get-cache-dir)) - ;; pickup-file hierarchy just mirrors the project hierarchy. - (define relative-path-within-project (find-relative-path (world:current-project-root) path)) - (define dest-file (build-path cache-dir (format "~a.rktd" relative-path-within-project))) + ;; cache-dir is also inside current-project-root. So there is a separate pollen-cache in each subdir. + (define dest-file (build-path cache-dir (format "~a.rktd" (find-relative-path (world:current-project-root) path)))) (make-parent-directory dest-file) (hash-ref (hash-ref! ram-cache key (λ _ (cache-file dest-file