added vhosting support to httpd

diff --git a/library/httpd/httpd.factor b/library/httpd/httpd.factor
index 5b814a814f67f01de335a613d1e59eac244c85a3..98ad48f0ba96e689550dd65300598d9e4fff1d4b 100644 (file)
--- a/library/httpd/httpd.factor
+++ b/library/httpd/httpd.factor
@@ -26,16 +26,13 @@ stdio streams strings threads http sequences ;
         [[ "HEAD" "head" ]]
     ] assoc [ "bad" ] unless* ;
 
-: (handle-request) ( arg cmd -- method path )
+: (handle-request) ( arg cmd -- method path host )
     request-method dup "method" set swap
-    prepare-url prepare-header ;
+    prepare-url prepare-header
+    "Host" "header" get assoc ":" split1 drop ;
 
 : handle-request ( arg cmd -- )
-    [
-        (handle-request)
-        "Host" "header" get assoc
-        serve-responder
-    ] with-scope ;
+    [ (handle-request) serve-responder ] with-scope ;
 
 : parse-request ( request -- )
     dup log