Overview
| Comment: | Bump the debug print level to 4 for skipping sync message |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
5651f9dd0e7da09a1e0c7ad4a2145088 |
| User & Date: | matt on 2023-05-31 05:20:23 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-19
| ||
| 13:58 | No idea what these changes are Leaf check-in: d364a1a95e user: matt tags: v1.80-unknown | |
|
2023-05-31
| ||
| 12:24 | added (declare (uses mtargs.import)) check-in: 81f82f994f user: mmgraham tags: v1.80 | |
| 05:20 | Bump the debug print level to 4 for skipping sync message check-in: 5651f9dd0e user: matt tags: v1.80 | |
| 05:08 | Fixes for mtutil check-in: 9b2ae06438 user: matt tags: v1.80 | |
Changes
Modified dbmod.scm from [96cb1b2682] to [88b05b876a].
| ︙ | ︙ | |||
248 249 250 251 252 253 254 | (if (file-exists? syncer-running-file) (debug:print-info 0 *default-log-port* "Syncer still running, skipping syncer start.") (system sync-cmd)) (set! *sync-in-progress* #f))))))) (if ((if (eq? syncdir 'todisk) < >) ;; use less than for todisk, greater than for from disk (file-modification-time tmpdb) (file-modification-time dbfullname)) | | | 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 | (if (file-exists? syncer-running-file) (debug:print-info 0 *default-log-port* "Syncer still running, skipping syncer start.") (system sync-cmd)) (set! *sync-in-progress* #f))))))) (if ((if (eq? syncdir 'todisk) < >) ;; use less than for todisk, greater than for from disk (file-modification-time tmpdb) (file-modification-time dbfullname)) (debug:print 4 *default-log-port* "Skipping sync, "tmpdb" older than "dbfullname) (if synclock-mod-time (if (< (- (current-seconds) synclock-mod-time) 20) ;; something wrong with sync, remove file (begin (handle-exceptions exn #f (delete-file synclock-file)) |
| ︙ | ︙ |