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

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

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-11 13:23:24 -06:00
parent 1c04cf1b02
commit c81222e4c8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/racket/file.rkt
View File

@ -185,9 +185,9 @@
(raise-type-error 'call-with-file-lock/timeout "'shared or 'exclusive" kind))
(unless (and (procedure? thunk) (= (procedure-arity thunk) 0))
(raise-type-error 'call-with-file-lock/timeout "procedure (arity 0)" thunk))
(unless (and (procedure? thunk) (= (procedure-arity thunk) 0))
(unless (and (procedure? thunk) (= (procedure-arity failure-thunk) 0))
(raise-type-error 'call-with-file-lock/timeout "procedure (arity 0)" failure-thunk))
(unless (path-string? lock-file)
(unless (or (not lock-file) (path-string? lock-file))
(raise-type-error 'call-with-file-lock/timeout "path-string? or #f" lock-file))
(unless (and (real? delay) (not (negative? delay)))
(raise-type-error 'call-with-file-lock/timeout "non-negative real" delay))