Overview
| Comment: | Unset 'all for sync if set. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | matt-db-sync-2 | v1.62-side |
| Files: | files | file ages | folders |
| SHA1: |
3b2f4ea9170ccf36bc0581454685a806 |
| User & Date: | mrwellan on 2016-10-31 21:13:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-10-31
| ||
| 21:13 | Unset 'all for sync if set. Closed-Leaf check-in: 3b2f4ea917 user: mrwellan tags: matt-db-sync-2, v1.62-side | |
| 17:18 | Watchdog enabled. Duplicate overlapping runs of sync-to prevented. check-in: 95a867e2e7 user: mrwellan tags: matt-db-sync-2, v1.62-side | |
Changes
Modified common.scm from [4237262277] to [39443cebf0].
| ︙ | |||
416 417 418 419 420 421 422 | 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 | - + + + |
(db:multi-db-sync (list run-id) 'new2old)
(let ((sync-time (- (current-seconds) start-time)))
(debug:print-info 3 *default-log-port* "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")
(if (common:low-noise-print 30 "sync new to old")
(debug:print-info 0 *default-log-port* "Sync of newdb to olddb for run-id " run-id " completed in " sync-time " seconds")))
(hash-table-delete! *db-local-sync* run-id)))
(mutex-unlock! *db-multi-sync-mutex*))
|
| ︙ |