scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor fix

This commit is contained in:
mainzelm 2005-10-11 15:38:18 +00:00
parent 2eab10324f
commit 1671ae0ee3
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/config.scm
View File

@ -1,14 +1,13 @@
(define *configuration* '()) (define *configuration* '())
(define (init-config config-file) (define (init-config config-file)
(with-input-file (with-input-from-file
config-file config-file
(set! *configuration* (read)))) (set! *configuration* (read))))
(define (read-config config-file) (define (read-config config-file)
(call-with-input-file config-file read)) (call-with-input-file config-file read))
(define (config option)
(let ((probe (assq option *configuration*)))
(define (config-file-to-use) (define (config-file-to-use)
(let ((from-env (getenv "CMDRSRC")) (let ((from-env (getenv "CMDRSRC"))
(default-location (default-location