REBOL Programming/undirize

USAGE:

UNDIRIZE path 

DESCRIPTION:

Returns a copy of the path with any trailing "/" removed.

UNDIRIZE is a function value.

ARGUMENTS

• path -- (Type: file string url)

SOURCE CODE

undirize: func [
    {Returns a copy of the path with any trailing "/" removed.} 
    path [file! string! url!]
][
    path: copy path 
    if #"/" = pick path length? path [clear back tail path] 
    path
]