find-responder ( path dispatcher -- path responder )

Vocabulary

http.server.dispatchers

Inputs

path	an object
dispatcher	an object

Outputs

path	an object
responder	an object

Definition

USING: accessors assocs kernel sequences ;

IN: http.server.dispatchers

: find-responder ( path dispatcher -- path responder )
    over empty?
    [ "" over responders>> at* [ nip ] [ drop default>> ] if ] [
        over first over responders>> at*
        [ [ drop rest-slice ] dip ] [ drop default>> ] if
    ] if ;