Overview
| Comment: | fixed typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
59532cc2c4241b0d171d6e482b9e1d6d |
| User & Date: | mrwellan on 2015-07-07 18:23:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-07-07
| ||
| 23:36 | Fixed ticket 5174514d73. Crash on bad use of -setvars check-in: ba09a8a79c user: matt tags: v1.60 | |
| 18:23 | fixed typo check-in: 59532cc2c4 user: mrwellan tags: v1.60 | |
| 15:07 | Cleaned up archiving check-in: 26c7e70d1c user: mrwellan tags: v1.60, v1.6019 | |
Changes
Modified archive.scm from [340ad26128] to [d53c0bfed5].
| ︙ | ︙ | |||
233 234 235 236 237 238 239 | #f)) ;; no archive found? (archive-internal-path (conc (common:get-testsuite-name) "-" run-id "/latest/" test-partial-path))) ;; some sanity checks, move an existing path out of the way ;; (if (and prev-test-physical-path (file-exists? prev-test-physical-path)) ;; what to do? abort or clean up or link it in? | | | | | 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 | #f)) ;; no archive found? (archive-internal-path (conc (common:get-testsuite-name) "-" run-id "/latest/" test-partial-path))) ;; some sanity checks, move an existing path out of the way ;; (if (and prev-test-physical-path (file-exists? prev-test-physical-path)) ;; what to do? abort or clean up or link it in? (let* ((base (pathname-directory prev-test-physical-path)) (dirn (pathname-file prev-test-physical-path)) (newn (conc base "/." dirn))) (debug:print 0 "ERROR: the old directory " prev-test-physical-path ", still exists! Moving it to " newn) (file-move prev-test-physical-path newn))) (if archive-path ;; no point in proceeding if there is no actual archive (begin ;; CREATE WORK AREA ;; test-src-path == #f ==> don't copy in data from tests directory |
| ︙ | ︙ |