Overview
| Comment: | silenced a message, changed version to 1.8014 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
67c2bb32ecb8f1b0635bd0f5b92b3f1e |
| User & Date: | mmgraham on 2023-05-30 16:53:12 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-31
| ||
| 05:08 | Fixes for mtutil check-in: 9b2ae06438 user: matt tags: v1.80 | |
|
2023-05-30
| ||
| 16:53 | silenced a message, changed version to 1.8014 check-in: 67c2bb32ec user: mmgraham tags: v1.80 | |
| 13:40 | Cleaned up some noise. check-in: f8d75b3ac3 user: mrwellan tags: v1.80 | |
Changes
Modified dbmod.scm from [316c854d69] to [96cb1b2682].
| ︙ | ︙ | |||
275 276 277 278 279 280 281 | ;; (dbmod:sync-tables tables last-update db cachedb)))) ;; ;; direction: 'fromdest 'todest ;; (define (dbmod:sync-gasket tables last-update cachedb dbh dbfname direction keys) (assert (sqlite3:database? cachedb) "FATAL: sync-gasket: cachedb is not a db") (assert (sqlite3:database? cachedb) "FATAL: sync-gasket: dbh is not a db") | | | 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 |
;; (dbmod:sync-tables tables last-update db cachedb))))
;;
;; direction: 'fromdest 'todest
;;
(define (dbmod:sync-gasket tables last-update cachedb dbh dbfname direction keys)
(assert (sqlite3:database? cachedb) "FATAL: sync-gasket: cachedb is not a db")
(assert (sqlite3:database? cachedb) "FATAL: sync-gasket: dbh is not a db")
(debug:print-info 2 *default-log-port* "dbmod:sync-gasket called with sync-method="(dbfile:sync-method))
(case (dbfile:sync-method)
((none) #f)
((attach)
(dbmod:attach-sync tables cachedb dbfname direction))
((newsync)
(dbmod:new-sync tables cachedb dbh dbfname direction))
(else ;; original
|
| ︙ | ︙ |
Modified megatest-version.scm from [3ebd592b4e] to [74f4850897].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. ;; (declare (unit megatest-version)) | | | 16 17 18 19 20 21 22 23 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. ;; (declare (unit megatest-version)) (define megatest-version 1.8014) |