Differences From Artifact [4f9a9d9b04]:
- File tasks.scm — part of check-in [347f0d9167] at 2014-11-15 03:43:42 on branch v1.60 — In tasks:open-db call the create tables every time. Fixes issue with tables creation. NOT A GOOD FIX, revisit this. (user: matt, size: 31786) [annotate] [blame] [check-ins using]
To 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]
︙ | |||
65 66 67 68 69 70 71 72 73 74 75 76 77 78 | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | + | (define (tasks:open-db #!key (numretries 4)) (if *task-db* *task-db* (handle-exceptions exn (if (> numretries 0) (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 (debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn)) (print "exn=" (condition->list exn)))) |
︙ |