Overview
| Comment: | Merged fork |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
43e394881f9df07424b96173dd6b315b |
| User & Date: | mrwellan on 2023-01-11 07:14:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-01-11
| ||
| 16:11 | Fix to sync, incorrect files (I think) were being compared check-in: dd0f572ca9 user: mrwellan tags: v1.80 | |
| 07:14 | Merged fork check-in: 43e394881f user: mrwellan tags: v1.80 | |
| 06:20 | Added cond-expand to mtargs so it can be chicken-5 and chicken-4 check-in: 4e5c67b31e user: matt tags: v1.80 | |
|
2023-01-10
| ||
| 13:50 | Merged earlier change check-in: 143fb8134e user: mrwellan tags: v1.80 | |
Changes
Modified megatest.scm from [e6004dff38] to [79d9696058].
| ︙ | ︙ | |||
2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 |
(if (args:get-arg "-cleanup-db")
(begin
(if (not (launch:setup))
(begin
(debug:print 0 *default-log-port* "Failed to setup, exiting")
(exit 1)))
(let ((dbstructs (db:setup #f)))
(common:cleanup-db dbstructs))
(set! *didsomething* #t)))
(if (args:get-arg "-mark-incompletes")
(begin
(if (not (launch:setup))
| > > > > | 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 |
(if (args:get-arg "-cleanup-db")
(begin
(if (not (launch:setup))
(begin
(debug:print 0 *default-log-port* "Failed to setup, exiting")
(exit 1)))
(if (not (server:choose-server *toppath* 'home?))
(begin
(debug:print 0 *default-log-port* "Servers are not running on this host or no servers alive. Cannot run cleanup-db")
(exit 1)))
(let ((dbstructs (db:setup #f)))
(common:cleanup-db dbstructs))
(set! *didsomething* #t)))
(if (args:get-arg "-mark-incompletes")
(begin
(if (not (launch:setup))
|
| ︙ | ︙ |