2733
2734
2735
2736
2737
2738
2739
2740
2741
|
(conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
(define (common:get-fields cfgdat)
(let ((fields (hash-table-ref/default cfgdat "fields" '())))
(map car fields)))
(define keys:config-get-fields common:get-fields)
)
|
>
>
|
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
|
(conc megatest-version "-" (substring megatest-fossil-hash 0 4)))
(define (common:get-fields cfgdat)
(let ((fields (hash-table-ref/default cfgdat "fields" '())))
(map car fields)))
(define keys:config-get-fields common:get-fields)
)
|