From 4c642a9c3b720d8cbbf759ae027b757bf6cde7fe Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 1 Nov 2018 23:23:06 -0700 Subject: [PATCH] rename --- pollen/private/cache-utils.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pollen/private/cache-utils.rkt b/pollen/private/cache-utils.rkt index 19e4398..4225cf1 100644 --- a/pollen/private/cache-utils.rkt +++ b/pollen/private/cache-utils.rkt @@ -93,19 +93,19 @@ (define-values (cache-dir private-cache-dir) (make-cache-dirs dest-path)) (define-values (dest-path-dir dest-path-filename _) (split-path dest-path)) (define dest-file (build-path cache-dir (format "~a.rktd" dest-path-filename))) - (define (fetch-dest-file) + (define (generate-dest-file) (write-to-file (path-hash-thunk) dest-file #:exists 'replace)) ;; `cache-file` looks for a file in private-cache-dir previously cached with key ;; (which in this case carries modification dates and POLLEN env). ;; If a cached file is found, copies it to dest-file (which must not exist already, unless exists-ok? is true) - ;; Otherwise, fetch-dest-file is called; if dest-file exists after calling fetch-dest-file, + ;; Otherwise, generate-dest-file is called; if dest-file exists after calling fetch-dest-file, ;; it is copied to private-cache-dir and recorded with key. (cache-file dest-file #:exists-ok? #true key private-cache-dir - fetch-dest-file + generate-dest-file #:notify-cache-use notify-proc #:max-cache-size (setup:compile-cache-max-size)) (file->value dest-file)) \ No newline at end of file