 
 : error-head ( error -- )
     dup log-error response
-    VH{ { "Content-Type" "text/html" } } print-header nl ;
+    H{ { "Content-Type" V{ "text/html" } } } print-header nl ;
 
 : httpd-error ( error -- )
     #! This must be run from handle-request

! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs hashtables html html.elements splitting
http io kernel math math.parser namespaces parser sequences
strings io.server vectors vector-hash strings.lib ;

IN: http.server.responders


        } member?
    ] assoc-subset [
        ": " swap 3append log-message
    ] multi-assoc-each ;

: prepare-url ( url -- url )
    #! This is executed in the with-request namespace.
