intentional nostalgia

pull/218/head
Matthew Butterick 5 years ago
parent da2f6313e7
commit e822309d4e

@ -102,7 +102,8 @@
(define dest-path ((match (key->type key) (define dest-path ((match (key->type key)
['source key->source-path] ['source key->source-path]
['output key->output-path] ['output key->output-path]
['template (λ (k) (path-add-extension (key->source-path key) (string->bytes/utf-8 (format ".~a-template" (current-poly-target)))))]) key)) ;; path-add-suffix is deprecated since 6.5.0.3 but we still need compatibility with 6.3
['template (λ (k) (path-add-suffix (key->source-path key) (string->bytes/utf-8 (format ".~a-template" (current-poly-target)))))]) key))
(define-values (cache-dir private-cache-dir) (make-cache-dirs dest-path)) (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-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)))

@ -1 +1 @@
1580709571 1580927197

Loading…
Cancel
Save