From 1671ae0ee37a647aa585db5cdedbc437d8d32101 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 11 Oct 2005 15:38:18 +0000
Subject: [PATCH] Minor fix

---
 scheme/config.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/scheme/config.scm b/scheme/config.scm
index e6c7e4a..772ac2b 100644
--- a/scheme/config.scm
+++ b/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