Overview
| Comment: | Reduced debug noise a little |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
c443f7122826821e9a867888b8b2555f |
| User & Date: | mrwellan on 2015-11-04 08:17:27 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-11-04
| ||
| 14:38 | Better testconfig handling check-in: beccdd88ab user: mrwellan tags: v1.60 | |
| 08:17 | Reduced debug noise a little check-in: c443f71228 user: mrwellan tags: v1.60 | |
| 08:09 | Improvements to -list-targets for RobertG check-in: b95936eb28 user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [b23efd4823] to [3b21c0f4f0].
| ︙ | ︙ | |||
695 696 697 698 699 700 701 |
))
fromdats)
(sqlite3:finalize! stmth)))
(append (list todb) slave-dbs))))
tbls)
(let* ((runtime (- (current-milliseconds) start-time))
(should-print (common:low-noise-print 120 "db sync" (> runtime 500)))) ;; low and high sync times treated as separate.
| | | 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 |
))
fromdats)
(sqlite3:finalize! stmth)))
(append (list todb) slave-dbs))))
tbls)
(let* ((runtime (- (current-milliseconds) start-time))
(should-print (common:low-noise-print 120 "db sync" (> runtime 500)))) ;; low and high sync times treated as separate.
(if should-print (debug:print 3 "INFO: db sync, total run time " runtime " ms"))
(for-each
(lambda (dat)
(let ((tblname (car dat))
(count (cdr dat)))
(set! tot-count (+ tot-count count))
(if (> count 0)
(if should-print (debug:print 0 (format #f " ~10a ~5a" tblname count))))))
|
| ︙ | ︙ |