dev-stylish
Matthew Butterick 6 years ago
parent 5b2c9bb7ac
commit 1a0e9d1484

@ -14,8 +14,8 @@
;; seems like it would be slow to load cache.rktd but it's not. ;; seems like it would be slow to load cache.rktd but it's not.
(define-values (_ private-cache-dir) (make-cache-dirs path)) (define-values (_ private-cache-dir) (make-cache-dirs path))
(define cache-db-file (build-path private-cache-dir "cache.rktd")) (define cache-db-file (build-path private-cache-dir "cache.rktd"))
(or (file-exists? cache-db-file) (and (file-exists? cache-db-file)
(hash-has-key? (file->value cache-db-file) (paths->key path)))) (hash-has-key? (file->value cache-db-file) (paths->key path))))
;; compile a path inside a place (= parallel processing) ;; compile a path inside a place (= parallel processing)
(define (path-into-place starting-dir path) (define (path-into-place starting-dir path)

Loading…
Cancel
Save