Overview
| Comment: | Trial 7. Revert a wait in runs. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.65-cleanup-try-7 |
| Files: | files | file ages | folders |
| SHA1: |
061321389b08636fa160c2dce34903fa |
| User & Date: | matt on 2020-10-05 06:36:39 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-05
| ||
| 06:36 | Trial 7. Revert a wait in runs. Leaf check-in: 061321389b user: matt tags: v1.65-cleanup-try-7 | |
|
2020-10-04
| ||
| 19:05 | Trial 2. Backout (current-seconds) to 0 as it was for fallback log age. Leaf check-in: da95f1afe5 user: matt tags: v1.65-cleanup-try-2 | |
Changes
Modified runs.scm from [3376b43bbb] to [91203e8816].
| ︙ | ︙ | |||
93 94 95 96 97 98 99 | ((< age 10) #t) (else #f)))) lock-files))) (if fresh-locks (begin (if (runs:lownoise "runners-softlock-wait" 360) (debug:print-info 0 *default-log-port* "Other runners in flight, giving up some time...")) | | | 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 | ((< age 10) #t) (else #f)))) lock-files))) (if fresh-locks (begin (if (runs:lownoise "runners-softlock-wait" 360) (debug:print-info 0 *default-log-port* "Other runners in flight, giving up some time...")) (thread-sleep! 10)) (begin (if (runs:lownoise "runners-softlock-nowait" 360) (debug:print-info 0 *default-log-port* "No runners in flight, updating softlock")) (let* ((ouf (open-output-file my-lock-file))) (with-output-to-port ouf (lambda ()(print (current-seconds)))) (close-output-port ouf)))) |
| ︙ | ︙ |