compat for 6.3

dev-nonsettable
Matthew Butterick 4 years ago
parent 98abad7b4b
commit 972dba94e6

@ -60,11 +60,15 @@
(define-namespace-anchor cache-utils-module-ns) (define-namespace-anchor cache-utils-module-ns)
(define my-caching-compile-proc (make-caching-managed-compile-zo)) (define my-caching-compile-proc (make-caching-managed-compile-zo))
;; check 'gc not 'vm because 'gc is supported before 6.7
(define running-on-cs? (eq? (system-type 'gc) 'cs))
(define (path->hash path) (define (path->hash path)
(for ([p (in-list (or (get-directory-require-files path) null))]) (for ([p (in-list (or (get-directory-require-files path) null))])
(my-caching-compile-proc p)) (my-caching-compile-proc p))
(when (eq? (system-type 'vm) 'chez-scheme) (when running-on-cs?
;; this makes builds faster, but a bytecode-caching bug in Racket BC ;; this makes builds faster,
;; but a bytecode-caching bug in Racket BC
;; restricts it to CS for now ;; restricts it to CS for now
(my-caching-compile-proc path)) (my-caching-compile-proc path))
(apply hasheq (apply hasheq

@ -1 +1 @@
1588777265 1588784092

Loading…
Cancel
Save