Index: dbfile.scm ================================================================== --- dbfile.scm +++ dbfile.scm @@ -242,11 +242,11 @@ ;; return a previously opened db handle to the stack of available handles (define (dbfile:add-dbdat dbstruct run-id dbdat) (let* ((subdb (dbfile:get-subdb dbstruct run-id)) (age (- (current-seconds)(dbr:dbdat-birth-sec dbdat)))) - (if (> age 300) ;; just testing - discard and close after 30 sec + (if #f ;; (> age 300) ;; just testing - discard and close after 30 sec (begin ;; (map sqlite3:finalize! (hash-table-values (dbr:dbdat-stmt-cache dbdat))) ;; (sqlite3:finalize! (dbr:dbdat-dbh dbdat)) (dbfile:print-err "INFO: Discarded dbdat over 30 sec old ("age"s)")) (begin