find-index ( filename -- path )

Vocabulary

http.server.static

Inputs

filename

an object

Outputs

path

an object

Definition

USING: accessors io.files io.pathnames kernel namespaces
sequences ;

IN: http.server.static

: find-index ( filename -- path )
    file-responder get index-names>>
    [ append-path [ file-exists? ] 1guard ] with map-find drop ;