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
]