Overview
| Comment: | Increased timeouts in dot lock for portlogger |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
c832c39e64a92e15529b08d1bc3f0550 |
| User & Date: | mrwellan on 2014-09-03 15:22:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-09-03
| ||
| 15:48 | Switch out dot locking with waiting on journal file gone. check-in: f88ca3aa69 user: mrwellan tags: v1.60 | |
| 15:22 | Increased timeouts in dot lock for portlogger check-in: c832c39e64 user: mrwellan tags: v1.60 | |
| 13:41 | Release the lock in cases where there is an sqlite3 error. check-in: 4174f38be9 user: mrwellan tags: v1.60 | |
Changes
Modified portlogger.scm from [266c8500b0] to [ac922cdc40].
| ︙ | ︙ | |||
41 42 43 44 45 46 47 |
exn
(begin
(release-dot-lock fname)
(debug:print 0 "ERROR: portlogger:open-run-close failed. " proc " " params)
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(debug:print 0 "exn=" (condition->list exn))
(print-call-chain))
| | | 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 |
exn
(begin
(release-dot-lock fname)
(debug:print 0 "ERROR: portlogger:open-run-close failed. " proc " " params)
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(debug:print 0 "exn=" (condition->list exn))
(print-call-chain))
(let* ((lock (obtain-dot-lock fname 2 9 10))
(db (portlogger:open-db fname))
(res (apply proc db params)))
(sqlite3:finalize! db)
(release-dot-lock fname)
res))))
;; (fold-row PROC INIT DATABASE SQL . PARAMETERS)
|
| ︙ | ︙ |