Differences From Artifact [50ab80015a]:
- File env.scm — part of check-in [a9196a3661] at 2021-02-26 20:40:38 on branch v1.65-real-new-runs-view-wip3 — wip converting more to modules (user: matt, size: 8576) [annotate] [blame] [check-ins using]
To Artifact [f195707add]:
- File attic_modular/env.scm — part of check-in [5d8e30ec14] at 2021-03-06 04:45:53 on branch v1.65-real-chicken-5 — wip (user: matt, size: 8624) [annotate] [blame] [check-ins using]
- File env.scm — part of check-in [219180af64] at 2021-02-27 11:33:46 on branch v1.65-real-new-runs-view-wip3 — wip (user: matt, size: 8624) [annotate] [blame] [check-ins using]
| ︙ | |||
20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | + + |
(declare (unit env))
(declare (uses margsmod))
(import margsmod)
(declare (uses commonmod))
(declare (uses debugprint))
(import commonmod)
(import debugprint)
(use sql-de-lite) ;; srfi-1 posix regex regex-case srfi-69 srfi-18 call-with-environment-variables)
(define (env:open-db fname)
(let* ((db-exists (common:file-exists? fname))
(db (open-database fname)))
(if (not db-exists)
|
| ︙ |