Differences From Artifact [36a4964f50]:
- File attic/portlogger.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 7840) [annotate] [blame] [check-ins using]
- File portlogger.scm — part of check-in [e6e04b8c79] at 2019-11-04 20:47:50 on branch v1.65-merge-fixes — Applied more fixes from modulization work (user: matt, size: 7840) [annotate] [blame] [check-ins using]
To 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]
︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | + + + | (require-extension (srfi 18) extras tcp s11n) (use sqlite3 srfi-1 posix srfi-69 hostinfo dot-locking z3) (import (prefix sqlite3 sqlite3:)) (declare (unit portlogger)) (declare (uses db)) (declare (uses commonmod)) (import commonmod) ;; 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 |
︙ |