display-directory ( -- string )

Vocabulary

ftp.server

Inputs

None

Outputs

string

an object

Definition

USING: accessors io.pathnames kernel namespaces sequences
splitting ;

IN: ftp.server

: display-directory ( -- string )
    current-directory get server get serving-directory>> swap
    ?head drop [ "/" ] when-empty ;