From caa0026bc2e2ea62096bc4539684c0bbf3638549 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 20 Jan 2011 15:09:05 -0700 Subject: [PATCH] fix put-preferences --- collects/racket/file.rkt | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/collects/racket/file.rkt b/collects/racket/file.rkt index acb2caad06..485af44a61 100644 --- a/collects/racket/file.rkt +++ b/collects/racket/file.rkt @@ -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))