         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* ;
 

    #! Add a responder object to the list.
    "responder" over at  responders get set-at ;

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

: make-responder ( quot -- responder )
    #! quot has stack effect ( url -- )
    [
        [

    "/" ?head drop ;

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