[<< wikibooks] 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
]