Minor fix

scheme/config.scm

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