From 6f1c038989a010217bce8e65dc395e3aea6e618e Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 20 Jun 2013 23:29:07 +0900 Subject: [PATCH] fixing bug in chained keys --- lib/chibi/config.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lib/chibi/config.scm b/lib/chibi/config.scm index 1a7ac693..922e813e 100644 --- a/lib/chibi/config.scm +++ b/lib/chibi/config.scm @@ -202,9 +202,11 @@ (define (conf-get-cell config key) (cond ((pair? key) - (if (null? (cdr key)) - (conf-get-cell config (car key)) - (any (lambda (x) (assq-chain key x)) config))) + (cond + ((null? (cdr key)) (conf-get-cell config (car key))) + ((assq-chain key (conf-alist config))) + ((conf-parent config) => (lambda (p) (conf-get-cell p key))) + (else #f))) (else (let search ((config config)) (and config