chop-vocab-root ( path -- path' )

Vocabulary

vocabs.refresh.monitor

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.backend io.pathnames kernel namespaces sequences
splitting vocabs.loader ;

IN: vocabs.refresh.monitor

: chop-vocab-root ( path -- path' )
    "resource:" prepend-path normalize-path dup vocab-roots get
    [ [ normalize-path ] map ] [ [ resolve-symlinks ] map ] bi
    append [ head? ] with find nip ?head drop ;