root-path* ( path -- path' )

Vocabulary

io.pathnames

Inputs

path

an object

Outputs

path'

an object

Definition

USING: kernel math sequences ;

IN: io.pathnames

: root-path* ( path -- path' )
    dup absolute-path?
    [ dup [ path-separator? ] find drop 1 + head ] when ;