D
Size: a a a
D
D
(define (read-config config)
(if (file-exists? config)
(let* ((config (string->jsexpr (file->string config))) ;;; <<<---- вот тут
(config-keys (hash-keys config))
(config-values (hash-values config)))
(for/list ([key config-keys]
[value config-values])
(set! key value)))
(log-warning "No configuration file are aviable. Use default variables.")))
D
D
D
read-json
делать а не по колхозномуND
read-json
делать а не по колхозному(compose string->jsexpr file->string)
))))D
D
(compose string->jsexpr file->string)
))))D
ND
D
D
D
D
D
ND
ND
D
ND
D