make-path-relative? ( path -- ? )

Vocabulary

ftp.server

Inputs

path

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit io.pathnames kernel
namespaces ;

IN: ftp.server

: make-path-relative? ( path -- ? )
    {
        [ absolute-path? ]
        [ drop server get serving-directory>> ]
    } 1&& ;