virtual host table is cdr, not cadr
svn: r3351
This commit is contained in:
parent
e8442c7b15
commit
531f8760c4
|
@ -26,7 +26,7 @@
|
|||
(parse-host default-host-table)
|
||||
(map (lambda (h)
|
||||
(if (and (pair? h) (pair? (cdr h)) (null? (cddr h)))
|
||||
(cons (car h) (parse-host (cadr h)))
|
||||
(cons (car h) (parse-host (cdr h)))
|
||||
(error 'parse-configuration-table "invalid virtual-host entry ~s" h)))
|
||||
virtual-host-table))
|
||||
(error 'parse-configuration-table "invalid configuration values ~s"
|
||||
|
|
Loading…
Reference in New Issue
Block a user