relative-path* ( path -- relative-path )

Vocabulary

io.pathnames

Inputs

path

an object

Outputs

relative-path

an object

Definition

USING: kernel math sequences ;

IN: io.pathnames

: relative-path* ( path -- relative-path )
    dup absolute-path?
    [ dup [ path-separator? ] find drop 1 + tail ] when ;