Overview
| Comment: | Backed out the change to remove cleanup on short-circuit exit |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
07d817d10e07a34637c656f1d0467c48 |
| User & Date: | mmgraham on 2023-08-01 12:46:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-08-10
| ||
| 17:28 | made stop-the-train remove .mtdb/*lock check-in: 64ea553046 user: mmgraham tags: v1.80, v1.8016 | |
|
2023-08-01
| ||
| 12:46 | Backed out the change to remove cleanup on short-circuit exit check-in: 07d817d10e user: mmgraham tags: v1.80 | |
|
2023-07-31
| ||
| 14:59 | corrected path to db to fix dashboard hang in Run Control check-in: ab926dd252 user: mmgraham tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [62bad26250] to [fc5dddb25a].
| ︙ | ︙ | |||
580 581 582 583 584 585 586 | (else ;; should never get here (debug:print 0 *default-log-port* "BAD SERVER RECORD: "leadsrv) (assert #f "Bad server record "leadsrv)))))))) (if ok (tt-last-access-set! ttdat *db-last-access*) ;; bit silly, just use db-last-access (begin (debug:print 0 *default-log-port* "Exiting immediately") | | | 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 | (else ;; should never get here (debug:print 0 *default-log-port* "BAD SERVER RECORD: "leadsrv) (assert #f "Bad server record "leadsrv)))))))) (if ok (tt-last-access-set! ttdat *db-last-access*) ;; bit silly, just use db-last-access (begin (debug:print 0 *default-log-port* "Exiting immediately") (cleanup) (exit))) (let* ((last-update (dbr:dbstruct-last-update dbstruct)) (curr-secs (current-seconds))) (if (and (eq? (tt-state ttdat) 'running) (> (- curr-secs last-update) 3)) ;; every 3-4 seconds update the db? (begin |
| ︙ | ︙ |