Differences From Artifact [d39626d320]:
- File lock-queue.scm — part of check-in [f52cd44a6e] at 2016-06-21 09:57:02 on branch redir-logs — Switch to *default-log-port* (user: mrwellan, size: 10794) [annotate] [blame] [check-ins using]
To Artifact [caf2678455]:
- File lock-queue.scm — part of check-in [c5596c2e5f] at 2016-06-21 10:22:28 on branch redir-logs — Redid redirecting of logs with -log (user: mrwellan, size: 10810) [annotate] [blame] [check-ins using] [more...]
︙ | ︙ | |||
169 170 171 172 173 174 175 | (if (file-exists? journal)(delete-file journal)) (if (file-exists? fname) (delete-file fname)) #f)))) (sqlite3:execute (lock-queue:db-dat-get-db dbdat) "DELETE FROM runlocks WHERE test_id=?;" test-id) (sqlite3:finalize! (lock-queue:db-dat-get-db dbdat))))) (define (lock-queue:steal-lock dbdat test-id #!key (count 10)) | | | 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 | (if (file-exists? journal)(delete-file journal)) (if (file-exists? fname) (delete-file fname)) #f)))) (sqlite3:execute (lock-queue:db-dat-get-db dbdat) "DELETE FROM runlocks WHERE test_id=?;" test-id) (sqlite3:finalize! (lock-queue:db-dat-get-db dbdat))))) (define (lock-queue:steal-lock dbdat test-id #!key (count 10)) (debug:print-info 0 *default-log-port* "Attempting to steal lock at " (lock-queue:db-dat-get-path dbdat)) (tasks:wait-on-journal (lock-queue:db-dat-get-path dbdat) 1200 "lock-queue:steal-lock; waiting on journal") (handle-exceptions exn (begin (debug:print 0 *default-log-port* "WARNING: Failed to steal queue lock. Will try again in few seconds") (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn)) (thread-sleep! 10) |
︙ | ︙ |