Megatest

Check-in [b6788d6803]
Login
Overview
Comment:added assert for good db to dbmod:with-db
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.80
Files: files | file ages | folders
SHA1: b6788d68030700d18100c990d7135bb6ff79bc4c
User & Date: mmgraham on 2023-04-13 15:54:16
Other Links: branch diff | manifest | tags
Context
2023-04-15
09:14
merged fork check-in: 532a2581c9 user: matt tags: v1.80
2023-04-14
12:56
committed merge check-in: 4131c9a1b5 user: mmgraham tags: v1.80-servload-side
2023-04-13
15:54
added assert for good db to dbmod:with-db check-in: b6788d6803 user: mmgraham tags: v1.80
15:37
Removed assert that is in wrong place check-in: f026e9979d user: mrwellan 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
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))