cache with serialize (addresses #205)

dev-render-audit
Matthew Butterick 5 years ago
parent 925c4aa88a
commit a83466ffc9

@ -7,6 +7,7 @@
racket/file racket/file
racket/path racket/path
racket/list racket/list
racket/serialize
sugar/coerce sugar/coerce
sugar/test sugar/test
compiler/cm) compiler/cm)
@ -98,7 +99,7 @@
(define-values (dest-path-dir dest-path-filename _) (split-path 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 dest-file (build-path cache-dir (format "~a.rktd" dest-path-filename)))
(define (generate-dest-file) (define (generate-dest-file)
(write-to-file (path-hash-thunk) dest-file #:exists 'replace)) (write-to-file (serialize (path-hash-thunk)) dest-file #:exists 'replace))
;; `cache-file` looks for a file in private-cache-dir previously cached with key ;; `cache-file` looks for a file in private-cache-dir previously cached with key
;; (which in this case carries modification dates and POLLEN env). ;; (which in this case carries modification dates and POLLEN env).
@ -112,4 +113,4 @@
generate-dest-file generate-dest-file
#:notify-cache-use notify-proc #:notify-cache-use notify-proc
#:max-cache-size (setup:compile-cache-max-size)) #:max-cache-size (setup:compile-cache-max-size))
(file->value dest-file)) (deserialize (file->value dest-file)))

@ -1 +1 @@
1559745031 1559936676

Loading…
Cancel
Save