add-main-responder ( dispatcher responder path -- dispatcher )

Vocabulary

http.server.dispatchers

Inputs

dispatcher	an object
responder	an object
path	an object

Outputs

dispatcher

an object

Definition

USING: kernel ;

IN: http.server.dispatchers

: add-main-responder
    ( dispatcher responder path -- dispatcher )
    [ add-responder drop ] [ drop "" add-responder drop ]
    [ 2drop ] 3tri ;