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 (define failure-thunk
(if lock-there (if lock-there
(lambda () (lock-there lock-file)) (lambda () (lock-there lock-file))
(case lock-style (lambda ()
[(file-lock) (error who (case lock-style
"~a ~a: ~e" [(file-lock) (error who
"some other process has a lock" "~a ~a: ~e"
"on the preferences lock file" "some other process has a lock"
lock-file)] "on the preferences lock file"
[else (error who lock-file)]
"~a, ~a: ~e" [else (error who
"some other process has the preference-file lock" "~a, ~a: ~e"
"as indicated by the existence of the lock file" "some other process has the preference-file lock"
lock-file)]))) "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)) (call-with-file-lock kind lock-file thunk failure-thunk #:lock-style lock-style))