     "404 No such responder" httpd-error ;
 
 ! create a responders hash if it doesn't already exist
-global [ 
+global [
     responders [ H{ } assoc-like ] change
     
     ! 404 error message pages are served by this guy

    "/" ?head drop ;

: serve-explicit-responder ( method url -- )
    "/" split1 
    "/responder/" pick "/" 3append "responder-url" set
    dup [
        swap responder call-responder

        call
    ] H{ } make-assoc add-responder ;

: add-simple-responder ( name quot -- )
    [
        [ drop ] swap append dup "get" set "post" set
        "responder" set
    ] make-responder ;

: vhost ( name -- vhost )
    vhosts get at [ "default" vhost ] unless* ;

