297
298
299
300
301
302
303
304
305
306
307
308
309
310
|
(if (and rundb
(sqlite3:database? rundb))
(handle-exceptions
exn
(begin
(debug:print 0 "WARNING: database files may not have been closed correctly. Consider running -cleanup-db")
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(print-call-chain)
#f)
(sqlite3:interrupt! rundb)
(sqlite3:finalize! rundb #t))))
;; (mutex-unlock! *db-sync-mutex*)
)
|
>
|
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
|
(if (and rundb
(sqlite3:database? rundb))
(handle-exceptions
exn
(begin
(debug:print 0 "WARNING: database files may not have been closed correctly. Consider running -cleanup-db")
(debug:print 0 " message: " ((condition-property-accessor 'exn 'message) exn))
(debug:print 0 " db: " rundb)
(print-call-chain)
#f)
(sqlite3:interrupt! rundb)
(sqlite3:finalize! rundb #t))))
;; (mutex-unlock! *db-sync-mutex*)
)
|