use "_LOCK" prefix for Windows cross-build
Use "_LOCK" instead of ".LOCK" when the cross platform is Windows, not just when the current platform is Windows. Merge to v6.3
This commit is contained in:
parent
2396542cda
commit
0edd781928
|
@ -3,7 +3,8 @@
|
||||||
(for-label framework/preferences
|
(for-label framework/preferences
|
||||||
racket/runtime-path
|
racket/runtime-path
|
||||||
launcher/launcher
|
launcher/launcher
|
||||||
setup/dirs))
|
setup/dirs
|
||||||
|
setup/cross-system))
|
||||||
|
|
||||||
@(define file-eval (make-base-eval))
|
@(define file-eval (make-base-eval))
|
||||||
@(interaction-eval #:eval file-eval (begin (require racket/file) (define filename (make-temporary-file))))
|
@(interaction-eval #:eval file-eval (begin (require racket/file) (define filename (make-temporary-file))))
|
||||||
|
@ -1402,7 +1403,8 @@ in the sense of @racket[port-try-file-lock?].
|
||||||
[name path-element?])
|
[name path-element?])
|
||||||
path?])]{
|
path?])]{
|
||||||
|
|
||||||
Creates a lock filename by prepending @racket["_LOCK"] on Windows or
|
Creates a lock filename by prepending @racket["_LOCK"] on Windows
|
||||||
|
(i.e., when @racket[cross-system-type] reports @racket['windows]) or
|
||||||
@racket[".LOCK"] on other platforms to the file portion of the path.
|
@racket[".LOCK"] on other platforms to the file portion of the path.
|
||||||
|
|
||||||
@examples[
|
@examples[
|
||||||
|
|
|
@ -1,6 +1,7 @@
|
||||||
#lang racket/base
|
#lang racket/base
|
||||||
(require "path.rkt"
|
(require "path.rkt"
|
||||||
setup/dirs
|
setup/dirs
|
||||||
|
setup/cross-system
|
||||||
(for-syntax racket/base
|
(for-syntax racket/base
|
||||||
setup/path-to-relative))
|
setup/path-to-relative))
|
||||||
|
|
||||||
|
@ -278,7 +279,7 @@
|
||||||
(define (make-pathless-lock-file-name name)
|
(define (make-pathless-lock-file-name name)
|
||||||
(bytes->path-element
|
(bytes->path-element
|
||||||
(bytes-append
|
(bytes-append
|
||||||
(if (eq? 'windows (system-type))
|
(if (eq? 'windows (cross-system-type))
|
||||||
#"_"
|
#"_"
|
||||||
#".")
|
#".")
|
||||||
#"LOCK"
|
#"LOCK"
|
||||||
|
|
Loading…
Reference in New Issue
Block a user