Differences From Artifact [15f0835800]:
- File attic/configf.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: 42682) [annotate] [blame] [check-ins using]
- File configf.scm — part of check-in [f8657e116c] at 2021-02-14 22:33:19 on branch v1.65-real — Synced minor changes from modularized v1.6569-mult-db-wip branch (user: matt, size: 42682) [annotate] [blame] [check-ins using]
To Artifact [f97d938f06]:
- File configf.scm — part of check-in [316c988564] at 2021-03-13 00:34:26 on branch v1.65 — restored the configf cleanup, with workaround for ext.scm (user: mmgraham, size: 42821) [annotate] [blame] [check-ins using]
| ︙ | |||
50 51 52 53 54 55 56 57 58 59 60 61 62 63 | 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 | + + + + |
(define (configf:assoc-safe-add alist key val #!key (metadata #f))
(let ((newalist (filter (lambda (x)(not (equal? key (car x)))) alist)))
(append newalist (list (if metadata
(list key val metadata)
(list key val))))))
;; this is used in megatestqa/ext.scm.
;; remove it from here and there by 12/31/21
(define config:assoc-safe-add configf:assoc-safe-add)
(define (configf:section-var-set! cfgdat section-name var value #!key (metadata #f))
(hash-table-set! cfgdat section-name
(configf:assoc-safe-add
(hash-table-ref/default cfgdat section-name '())
var value metadata: metadata)))
(define (configf:eval-string-in-environment str)
|
| ︙ |