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

cm: fix lock

Browse Source 
Commit 70e0cac062 neglected to use `#:for-lock? #t` as intended.
This commit is contained in:
Matthew Flatt 2019-05-03 12:57:58 -06:00
parent f52fdfdd6e
commit ef1004fdc0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -706,7 +706,8 @@
(define lock-zo-name (if (cross-multi-compile? roots)
;; Make sure we use a file path for the lock that is consistent
;; with being in a phase of compiling for the current machine:
(path-add-extension (get-compilation-path path->mode roots path) #".zo")
(path-add-extension (get-compilation-path path->mode roots path #:for-lock? #t)
#".zo")
zo-name))
;; Called when `tryng-sha1?` is #f and this process (or some process)
;; needs to compile, recompile, or touch: