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

3
collects/racket/file.rkt
View File

@ -205,6 +205,7 @@
(define failure-thunk (define failure-thunk
(if lock-there (if lock-there
(lambda () (lock-there lock-file)) (lambda () (lock-there lock-file))
(lambda ()
(case lock-style (case lock-style
[(file-lock) (error who [(file-lock) (error who
"~a ~a: ~e" "~a ~a: ~e"
@ -215,7 +216,7 @@
"~a, ~a: ~e" "~a, ~a: ~e"
"some other process has the preference-file lock" "some other process has the preference-file lock"
"as indicated by the existence of the lock file" "as indicated by the existence of the lock file"
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))