Differences From Artifact [51459afd2c]:
- File portlogger.scm — part of check-in [5746a55322] at 2021-02-04 21:17:51 on branch v1.6569-multi-db — Few more spots where loading of commonmod was needed (user: matt, size: 7887) [annotate] [blame] [check-ins using]
To Artifact [1ef3045eac]:
- File portlogger.scm (unpublished)— part of check-in [69dd64de99] at 2021-02-12 08:35:31 on branch v1.6569-multi-db-wip — wip (user: matt, size: 7926) [annotate] [blame] [check-ins using]
| ︙ | |||
23 24 25 26 27 28 29 30 31 32 33 34 35 36 | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | + + + | (import (prefix sqlite3 sqlite3:)) (declare (unit portlogger)) (declare (uses db)) (declare (uses commonmod)) (import commonmod) (declare (uses dbmod)) (import dbmod) ;; lsof -i (define (portlogger:open-db fname) (let* ((avail (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away (exists (common:file-exists? fname)) (db (if avail |
| ︙ |