Changes In Branch v1.65-cleanup-try-7 Excluding Merge-Ins
This is equivalent to a diff from da95f1afe5 to 061321389b
|
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 | |
| 18:05 | Trial 1. Merge all good stuff with minor changes back to last working node. Closed-Leaf check-in: ddd390fb9a user: matt tags: v1.65-cleanup-try-1 | |
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)))) |
| ︙ | ︙ |