suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cm: fix lock more

Browse Source 
Still trying to get it right for the repair started in 70e0cac062 and
continued in ef1004fdc0.
This commit is contained in:
Matthew Flatt 2019-05-06 20:17:38 -06:00
parent 93d84170d0
commit b7d738d59a
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/compiler/private/cm-minimal.rkt
View File

@ -161,7 +161,13 @@
(define (get-compilation-path path->mode roots path #:for-lock? [for-lock? #f]) (define (get-compilation-path path->mode roots path #:for-lock? [for-lock? #f])
(let-values ([(dir name) (get-compilation-dir+name path (let-values ([(dir name) (get-compilation-dir+name path
#:modes (list (path->mode path)) #:modes (list (path->mode path))
#:roots roots #:roots (if for-lock?
;; When taking a lock, we need to consistently
;; use the main destination (where we'll write)
;; and not find a ".zo" file that exists in an
;; ealier root:
(list (car roots))
roots)
;; In cross-multi mode, we need to default to the ;; In cross-multi mode, we need to default to the
;; ".zo" file that is written first, otherwise we ;; ".zo" file that is written first, otherwise we
;; may pick the first root where there's no ".dep" ;; may pick the first root where there's no ".dep"