Differences From Artifact [19f006a922]:
- File dbmod.scm — part of check-in [fc8c642fb9] at 2019-10-15 04:29:19 on branch v1.65-wip — Added mod files (but they are not used yet). (user: matt, size: 1204) [annotate] [blame] [check-ins using]
To Artifact [3c23163cb6]:
- File dbmod.scm — part of check-in [77149209be] at 2019-10-15 05:10:48 on branch v1.65-wip — Partial (but broken) usage of dbmod.scm (user: matt, size: 1368) [annotate] [blame] [check-ins using]
︙ | |||
26 27 28 29 30 31 32 33 34 35 | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | + + + + + + | (import scheme chicken data-structures extras) (import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69 format ports srfi-1 matchable) (import commonmod) ;; (use (prefix ulex ulex:)) (include "common_records.scm") ;; ;; legacy handling of structure for managing db's. Refactor this into dbr:? (define (db:dbdat-get-db dbdat) (if (pair? dbdat) (car dbdat) dbdat)) ) |