Overview
| Comment: | committed merge |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-servload-side |
| Files: | files | file ages | folders |
| SHA1: |
4131c9a1b5de0108748108f2ca943095 |
| User & Date: | mmgraham on 2023-04-14 12:56:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-04-24
| ||
| 11:31 | merged fork Leaf check-in: fe1ecbaa1b user: mmgraham tags: v1.80-servload-side | |
|
2023-04-14
| ||
| 12:56 | committed merge check-in: 4131c9a1b5 user: mmgraham tags: v1.80-servload-side | |
| 06:17 | Missed a location using launch:is-test-alive, converted it to commonmod: check-in: c7687dbe89 user: matt tags: v1.80 | |
|
2023-04-13
| ||
| 15:54 | added assert for good db to dbmod:with-db check-in: b6788d6803 user: mmgraham tags: v1.80 | |
Changes
Modified dbmod.scm from [297c5db2ed] to [b5162d04d6].
| ︙ | ︙ | |||
101 102 103 104 105 106 107 108 109 110 111 112 113 114 |
(begin
(sync-proc last-update)
;; MOVE THIS CALL TO INSIDE THE sync-proc CALL
(dbr:dbstruct-last-update-set! dbstruct curr-secs)
)))
(if use-mutex (mutex-lock! *db-with-db-mutex*))
(let* ((res (apply proc dbdat dbh params)))
(if use-mutex (mutex-unlock! *db-with-db-mutex*))
res)))
(define (db:with-db dbstruct run-id w/r proc . params)
(dbmod:with-db dbstruct run-id w/r proc params))
| > | 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 |
(begin
(sync-proc last-update)
;; MOVE THIS CALL TO INSIDE THE sync-proc CALL
(dbr:dbstruct-last-update-set! dbstruct curr-secs)
)))
(assert (sqlite3:database? dbh) "FATAL: bad db handle in dbmod:with-db")
(if use-mutex (mutex-lock! *db-with-db-mutex*))
(let* ((res (apply proc dbdat dbh params)))
(if use-mutex (mutex-unlock! *db-with-db-mutex*))
res)))
(define (db:with-db dbstruct run-id w/r proc . params)
(dbmod:with-db dbstruct run-id w/r proc params))
|
| ︙ | ︙ |