62
63
64
65
66
67
68
69
70
71
72
|
(list key targ))
keys targtweaked)))
;;======================================================================
;; config file related routines
;;======================================================================
(define (keys:config-get-fields confdat)
(let ((fields (hash-table-ref/default confdat "fields" '())))
(map car fields)))
|
|
<
<
<
|
62
63
64
65
66
67
68
69
|
(list key targ))
keys targtweaked)))
;;======================================================================
;; config file related routines
;;======================================================================
(define keys:config-get-fields common:get-fields)
|