From 531f8760c4bd93059316f76dfdb650dcaf7955bd Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 13 Jun 2006 19:28:25 +0000
Subject: [PATCH] virtual host table is cdr, not cadr

svn: r3351
---
 collects/web-server/parse-table.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/web-server/parse-table.ss b/collects/web-server/parse-table.ss
index 58ace328d6..5cfc5502ea 100644
--- a/collects/web-server/parse-table.ss
+++ b/collects/web-server/parse-table.ss
@@ -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"