dot-locking: Bug fixes
This commit is contained in:
parent
4e62182c00
commit
fd1829c9f2
|
|
@ -49,7 +49,7 @@
|
||||||
(lock-file-name (make-lock-file-name file-name))
|
(lock-file-name (make-lock-file-name file-name))
|
||||||
(lock-time (lambda ()
|
(lock-time (lambda ()
|
||||||
(guard (condition (else #f))
|
(guard (condition (else #f))
|
||||||
(file-info:ctime (file-info lock-file-name))))))
|
(file-info:ctime (file-info lock-file-name #f))))))
|
||||||
(letrec
|
(letrec
|
||||||
((locker
|
((locker
|
||||||
(lambda (try-count)
|
(lambda (try-count)
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
1.0.0
|
1.0.1
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue