fixup-relative-path ( string -- string' )

Vocabulary

ftp.server

Inputs

string

an object

Outputs

string'

an object

Definition

USING: accessors io.pathnames kernel namespaces ;

IN: ftp.server

: fixup-relative-path ( string -- string' )
    dup make-path-relative? [
        [ server get serving-directory>> ] dip
        append-relative-path
    ] when ;