Differences From Artifact [d67198199a]:
- File
configf.scm
(unpublished)— part of check-in
[87669bb7f8]
at
2021-02-25 23:25:16
on branch v1.65-real-reenable-eval-if
— Merged diet branch
From: 84be6d275afcef4ec123f4afd946b77ff0440ce3 User: matt (user: matt, size: 42287) [annotate] [blame] [check-ins using]
To Artifact [9fd0d22b70]:
- File configf.scm (unpublished)— part of check-in [08364cbabe] at 2021-02-26 16:54:47 on branch v1.65-real-reenable-eval-if — Fixed some complile errors (user: mrwellan, size: 42335) [annotate] [blame] [check-ins using]
| ︙ | ︙ | |||
57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
(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)))
;; The if was disabled, but why?
(if (or (string-null? str)
(equal? "!" (substring str 0 1))) ;; null string or starts with ! are preserved but NOT set in the environment
str
(handle-exceptions
exn
(begin
(debug:print-error 0 *default-log-port* "problem evaluating \"" str "\" in the shell environment, exn=" exn)
| > | 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 |
(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)))
;; The if was disabled, but why?
(define (config:eval-string-in-environment str)
(if (or (string-null? str)
(equal? "!" (substring str 0 1))) ;; null string or starts with ! are preserved but NOT set in the environment
str
(handle-exceptions
exn
(begin
(debug:print-error 0 *default-log-port* "problem evaluating \"" str "\" in the shell environment, exn=" exn)
|
| ︙ | ︙ |