Overview
| Comment: | removed comments |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
a2a5172659f9ee72cee3d8a4b6fea682 |
| User & Date: | pjhatwal on 2020-07-29 17:05:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-07-30
| ||
| 18:54 | changed version to 1.6558 check-in: ea53e1b896 user: mmgraham tags: v1.65, v1.6558 | |
|
2020-07-29
| ||
| 17:05 | removed comments check-in: a2a5172659 user: pjhatwal tags: v1.65 | |
| 16:36 | fix to archive save-remove check-in: ad4842a081 user: pjhatwal tags: v1.65 | |
Changes
Modified archive.scm from [1acc296954] to [8417ecbb27].
| ︙ | ︙ | |||
307 308 309 310 311 312 313 | run-dir: source-dir))) (hash-table-ref test-groups test-base)))) ;; (mutex-unlock! bup-mutex) (for-each (lambda (test-dat) (let ((test-id (db:test-get-id test-dat)) (run-id (db:test-get-run_id test-dat))) | < < < | 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 |
run-dir: source-dir)))
(hash-table-ref test-groups test-base))))
;; (mutex-unlock! bup-mutex)
(for-each
(lambda (test-dat)
(let ((test-id (db:test-get-id test-dat))
(run-id (db:test-get-run_id test-dat)))
(rmt:test-set-archive-block-id run-id test-id archive-id)
(if (member (symbol->string archive-command) '("save-remove"))
(begin
(debug:print-info 0 *default-log-port* "remove testdat")
(runs:remove-test-directory test-dat 'archive-remove)))))
(hash-table-ref test-groups test-base)))))
(hash-table-keys disk-groups))
#t))
|
| ︙ | ︙ |