head-path-separator? ( path1 ? -- ?' )

Vocabulary

io.pathnames.private

Inputs

path1	an object
?	an object

Outputs

?'

an object

Definition

USING: io.pathnames kernel sequences ;

IN: io.pathnames.private

: head-path-separator? ( path1 ? -- ?' )
    [ [ t ] [ first path-separator? ] if-empty ] [ drop f ] if ;