Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 03:36:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

fixing bug in chained keys

Browse source
This commit is contained in:
Alex Shinn 2013-06-20 23:29:07 +09:00
parent b4ea0a437f
commit 6f1c038989
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/config.scm
View file

@ -202,9 +202,11 @@
(define (conf-get-cell config key) (define (conf-get-cell config key)
(cond (cond
((pair? key) ((pair? key)
(if (null? (cdr key)) (cond
(conf-get-cell config (car key)) ((null? (cdr key)) (conf-get-cell config (car key)))
(any (lambda (x) (assq-chain key x)) config))) ((assq-chain key (conf-alist config)))
((conf-parent config) => (lambda (p) (conf-get-cell p key)))
(else #f)))
(else (else
(let search ((config config)) (let search ((config config))
(and config (and config