mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
15 lines
741 B
Scheme
15 lines
741 B
Scheme
|
|
(define-library (chibi config)
|
|
(export make-conf conf? conf-load conf-load-in-path conf-load-cascaded
|
|
conf-verify conf-extend conf-append conf-set conf-unfold-key
|
|
conf-get conf-get-list conf-get-cdr conf-get-multi
|
|
conf-specialize read-from-file conf-source conf-head conf-parent
|
|
assoc-get assoc-get-list)
|
|
(import (scheme base) (scheme read) (scheme write) (scheme file)
|
|
(scheme time) (srfi 1))
|
|
;; This is only used for config verification, it's acceptable to
|
|
;; substitute file existence for the stronger directory check.
|
|
(cond-expand
|
|
(chibi (import (only (chibi filesystem) file-directory?)))
|
|
(else (begin (define file-directory? file-exists?))))
|
|
(include "config.scm"))
|