107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
debugprint
)))
;; imports common to chk5 and ck4
(import srfi-13)
(include "db_records.scm")
;;======================================================================
;; stuff from keys that can't be in commonmod. Maybe move all from commonmod to here?
;;======================================================================
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
|
|
|
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
debugprint
)))
;; imports common to chk5 and ck4
(import srfi-13)
;; (include "db_records.scm")
;;======================================================================
;; stuff from keys that can't be in commonmod. Maybe move all from commonmod to here?
;;======================================================================
(define (keys:make-key/field-string confdat)
(let ((fields (configf:get-section confdat "fields")))
|