fix `call-with-file-lock/timeout' example

This commit is contained in:
Matthew Flatt 2011-08-19 15:58:05 -06:00
parent 11f5c84493
commit 2606c59a29

View File

@ -1092,7 +1092,7 @@ in the sense of @racket[port-try-file-lock?].
(lambda () (printf "Shouldn't get here\n"))
(lambda () (printf "Failed to obtain lock for file\n"))))
(lambda () (printf "Shouldn't ger here eithere\n"))
#:get-lock-file (lambda () (make-lock-file-name filename)))]
#:lock-file (make-lock-file-name filename))]
@defproc*[([(make-lock-file-name [path (or path-string? path-for-some-system?)])