Overview
| Comment: | typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
4432b3c8fa5e5205e70b2195ff3869f1 |
| User & Date: | bjbarcla on 2017-12-29 15:27:11 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-29
| ||
| 15:33 | typo check-in: a630d7090c user: bjbarcla tags: v1.65 | |
| 15:27 | typo check-in: 4432b3c8fa user: bjbarcla tags: v1.65 | |
| 15:23 | fixed problem with subrun:set-state-status check-in: 441e299543 user: bjbarcla tags: v1.65 | |
Changes
Modified subrun.scm from [ba21e628d1] to [910881faf1].
| ︙ | ︙ | |||
84 85 86 87 88 89 90 |
(create-symbolic-link ra symlink-target)
(configf:write-alist testconfig "testconfig.subrun")))
(define (subrun:set-state-status test-run-dir state status new-state-status)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((action-switches-str
| | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
(create-symbolic-link ra symlink-target)
(configf:write-alist testconfig "testconfig.subrun")))
(define (subrun:set-state-status test-run-dir state status new-state-status)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((action-switches-str
(conc "-set-state-status="new-state-status
(if state (conc " -state "state ""))
(if status (conc " -status "status) "")))
(log-prefix (subrun:sanitize-path
(conc "set-state-status="new-state-status
(if state (conc ":state="state ""))
(if status (conc "+status="status) ""))))
(submt-result
|
| ︙ | ︙ |