Rebol Programming/link-relative-path

= USAGE: = LINK-RELATIVE-PATH file

= DESCRIPTION: = Remove link-root from a file path

LINK-RELATIVE-PATH is a function value. = ARGUMENTS: =
 * file -- (Type: any)

= SOURCE CODE = link-relative-path: func ["Remove link-root from a file path" file /local f][ either f: find/match file link-root [copy f] [file] ]