From 803f65b0dcf05afaaa6ae1b1f26e1547df7b3cac Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 3 Sep 2015 12:41:32 -0700 Subject: [PATCH] make cache sensitive to POLLEN environment variable (addresses #86) --- cache.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/cache.rkt b/cache.rkt index b754b20..5fd1bfe 100644 --- a/cache.rkt +++ b/cache.rkt @@ -79,14 +79,15 @@ ;; problem is that cache could appear valid on another filesystem (based on relative pathnames & mod dates) ;; but would actually be invalid (because the `here-path` names are wrong). (define poly-flag (and (has-inner-poly-ext? source-path) (world:current-poly-target))) + (define pollen-env (getenv "POLLEN")) (define path+mod-time-pairs (map (λ(ps) (and ps (let ([cp (->complete-path ps)]) (cons (path->string cp) (file-or-directory-modify-seconds cp))))) path-strings)) - (cons poly-flag path+mod-time-pairs)) + (list* pollen-env poly-flag path+mod-time-pairs)) (define (key->source-path key) - (car (cadr key))) + (car (caddr key))) (define-namespace-anchor anchor-to-this-namespace)