Overview
| Comment: | Added remove as an action |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
ef1cde8038785f70c7effafb160746b9 |
| User & Date: | matt on 2017-06-16 23:05:12 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-17
| ||
| 09:09 | Side fix to mtutil check-in: 06a1cb9d9b user: matt tags: v1.64 | |
|
2017-06-16
| ||
| 23:05 | Added remove as an action check-in: ef1cde8038 user: matt tags: v1.64 | |
| 22:46 | Fixed couple minor issues with mtutil run. check-in: f4a408a40a user: matt tags: v1.64 | |
Changes
Modified mtut.scm from [67aa7a91eb] to [47bdc841c4].
| ︙ | ︙ | |||
148 149 150 151 152 153 154 |
))
;; alist to map actions to old megatest commands
(define *action-keys*
'((run . "-run")
(sync . "")
(archive . "-archive")
| | > | 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 |
))
;; alist to map actions to old megatest commands
(define *action-keys*
'((run . "-run")
(sync . "")
(archive . "-archive")
(set-ss . "-set-state-status")
(remove . "-remove-runs")))
;; inlst is an alternative input
;;
(define (lookup-param-by-key key #!key (inlst #f))
(fold (lambda (a res)
(if (eq? (cdr a) key)
(car a)
|
| ︙ | ︙ |