Differences From Artifact [c9b5a9471c]:
- File tasks.scm — part of check-in [7fe971f6e5] at 2014-11-16 07:49:42 on branch v1.60 — Added print-call-chain to exception handler of open-db. Fixed typo. Switched back to not requiring server in self QA (user: matt, size: 31811) [annotate] [blame] [check-ins using]
To Artifact [6b278cc270]:
- File tasks.scm — part of check-in [7ca86d7e47] at 2014-11-16 08:30:29 on branch v1.60 — Handle errors in data transmission (e.g. corruption in flight). (user: matt, size: 31836) [annotate] [blame] [check-ins using]
| ︙ | |||
71 72 73 74 75 76 77 78 79 80 81 82 83 84 | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | + |
(begin
(print-call-chain)
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))
(thread-sleep! 1)
(tasks:open-db numretries (- numretries 1)))
(begin
(print-call-chain)
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print "exn=" (condition->list exn))))
(let* ((dbpath (tasks:get-task-db-path))
(avail (tasks:wait-on-journal dbpath 10)) ;; wait up to about 10 seconds for the journal to go away
(exists (file-exists? dbpath))
(write-access (file-write-access? dbpath))
(mdb (cond
|
| ︙ |