virtual host table is cdr, not cadr

svn: r3351
This commit is contained in:
Matthew Flatt 2006-06-13 19:28:25 +00:00
parent e8442c7b15
commit 531f8760c4

View File

@ -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"