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

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

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-01 06:42:58 -06:00
parent c413c28e70
commit 513436e5b2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/lib/collects/racket/file.rkt
View File

@ -246,9 +246,9 @@
(raise-argument-error 'call-with-file-lock/timeout "(or/c path-string? #f)" fn)) (raise-argument-error 'call-with-file-lock/timeout "(or/c path-string? #f)" fn))
(unless (or (eq? kind 'shared) (eq? kind 'exclusive)) (unless (or (eq? kind 'shared) (eq? kind 'exclusive))
(raise-argument-error 'call-with-file-lock/timeout "(or/c 'shared 'exclusive)" kind)) (raise-argument-error 'call-with-file-lock/timeout "(or/c 'shared 'exclusive)" kind))
(unless (and (procedure? thunk) (= (procedure-arity thunk) 0)) (unless (and (procedure? thunk) (procedure-arity-includes? thunk 0))
(raise-argument-error 'call-with-file-lock/timeout "(-> any)" thunk)) (raise-argument-error 'call-with-file-lock/timeout "(-> any)" thunk))
(unless (and (procedure? thunk) (= (procedure-arity failure-thunk) 0)) (unless (and (procedure? thunk) (procedure-arity-includes? failure-thunk 0))
(raise-argument-error 'call-with-file-lock/timeout "(-> any)" failure-thunk)) (raise-argument-error 'call-with-file-lock/timeout "(-> any)" failure-thunk))
(unless (or (not lock-file) (path-string? lock-file)) (unless (or (not lock-file) (path-string? lock-file))
(raise-argument-error 'call-with-file-lock/timeout "(or/c path-string? #f)" lock-file)) (raise-argument-error 'call-with-file-lock/timeout "(or/c path-string? #f)" lock-file))