Overview
| Comment: | Oops. Missed commit. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-adjutant |
| Files: | files | file ages | folders |
| SHA1: |
6118ea75f08ca07363ed82a65be5e7a3 |
| User & Date: | matt on 2020-09-16 08:27:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-09-22
| ||
| 21:17 | Pulled in v1.65 check-in: dc83b9e0d8 user: matt tags: v1.65-adjutant | |
|
2020-09-16
| ||
| 08:27 | Oops. Missed commit. check-in: 6118ea75f0 user: matt tags: v1.65-adjutant | |
| 01:20 | Almost sorta working check-in: b08c20c7c7 user: matt tags: v1.65-adjutant | |
Changes
Modified launch.scm from [e1b27323ae] to [a09a9a77ba].
| ︙ | ︙ | |||
1556 1557 1558 1559 1560 1561 1562 | (test-vars (hash-table-ref/default tconfig "pre-launch-env-overrides" '())) (testprevvals (alist->env-vars test-vars)) ;; Launchwait defaults to true, must override it to turn off wait (launchwait (if (equal? (configf:lookup *configdat* "setup" "launchwait") "no") #f #t)) ;; BB: TODO: refactor this to examine return code of launcher, if nonzero, set state to launch failed. (launch-results-prev (if (eq? launcher-mode 'adjutant) | | | 1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1569 1570 | (test-vars (hash-table-ref/default tconfig "pre-launch-env-overrides" '())) (testprevvals (alist->env-vars test-vars)) ;; Launchwait defaults to true, must override it to turn off wait (launchwait (if (equal? (configf:lookup *configdat* "setup" "launchwait") "no") #f #t)) ;; BB: TODO: refactor this to examine return code of launcher, if nonzero, set state to launch failed. (launch-results-prev (if (eq? launcher-mode 'adjutant) '(#t 0) ;; just some fake data to fool downstream but non-applicable code (apply (if launchwait process:cmd-run-with-stderr-and-exitcode->list process-run) (if useshell (let ((cmdstr (string-intersperse fullcmd " "))) (if launchwait cmdstr |
| ︙ | ︙ |