diff --git a/pollen/private/cache-utils.rkt b/pollen/private/cache-utils.rkt index ade8015..36081b9 100644 --- a/pollen/private/cache-utils.rkt +++ b/pollen/private/cache-utils.rkt @@ -34,19 +34,19 @@ ;; user-designated files to track (map ->string (setup:cache-watchlist source-path))))) (define env-rec (for/list ([env-name (in-list (cons default-env-name (sort (setup:envvar-watchlist source-path) bytesstring env-name))) - [#false #false] - [str (string-downcase (->string str))])))) + (cons env-name (match (getenv (string-downcase (->string env-name))) + [#false #false] + [str (string-downcase (->string str))])))) (define poly-flag (and (has-inner-poly-ext? source-path) (current-poly-target))) (define path+mod-time-pairs (for/list ([ps (in-list path-strings-to-track)]) - (match ps - [(? symbol? sym) sym] - [#false #false] - [_ (define cp (->complete-path ps)) - (unless (file-exists? cp) - (message (format "watchlist file /~a does not exist" (find-relative-path (current-project-root) cp)))) - (cons (path->string cp) (file-or-directory-modify-seconds cp #false (λ () 0)))]))) + (match ps + [(? symbol? sym) sym] + [#false #false] + [_ (define cp (->complete-path ps)) + (unless (file-exists? cp) + (message (format "watchlist file /~a does not exist" (find-relative-path (current-project-root) cp)))) + (cons (path->string cp) (file-or-directory-modify-seconds cp #false (λ () 0)))]))) (list* cache-type env-rec poly-flag (and output-path (path->string output-path)) path+mod-time-pairs)) (define (key->source-path key) (car (fifth key))) @@ -61,7 +61,12 @@ (define my-caching-compile-proc (make-caching-managed-compile-zo)) (define (path->hash path) - (for-each my-caching-compile-proc (or (get-directory-require-files path) null)) + (for ([p (in-list (or (get-directory-require-files path) null))]) + (my-caching-compile-proc p)) + (when (eq? (system-type 'vm) 'chez-scheme) + ;; this makes builds faster, but a bytecode-caching bug in Racket BC + ;; restricts it to CS for now + (my-caching-compile-proc path)) (apply hasheq (let ([doc-key (setup:main-export)] [meta-key (setup:meta-export)]) (unless (and (symbol? doc-key) (symbol? meta-key)) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index f3f2aae..fbc5c5e 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1588697216 +1588777265