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

fix put-preferences

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-20 15:09:05 -07:00
parent b25c9591f6
commit caa0026bc2
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
collects/racket/file.rkt
View File

@ -205,17 +205,18 @@
(define failure-thunk
(if lock-there
(lambda () (lock-there lock-file))
(case lock-style
[(file-lock) (error who
"~a ~a: ~e"
"some other process has a lock"
"on the preferences lock file"
lock-file)]
[else (error who
"~a, ~a: ~e"
"some other process has the preference-file lock"
"as indicated by the existence of the lock file"
lock-file)])))
(lambda ()
(case lock-style
[(file-lock) (error who
"~a ~a: ~e"
"some other process has a lock"
"on the preferences lock file"
lock-file)]
[else (error who
"~a, ~a: ~e"
"some other process has the preference-file lock"
"as indicated by the existence of the lock file"
lock-file)]))))
(call-with-file-lock kind lock-file thunk failure-thunk #:lock-style lock-style))