Rebol Programming/suffix?

USAGE:

SUFFIX? path 

DESCRIPTION:

Return the suffix (ext) of a filename or url, else NONE.

SUFFIX? is a function value.

ARGUMENTS

• path -- (Type: any-string)

SOURCE CODE

suffix?: func [
    {Return the suffix (ext) of a filename or url, else NONE.} 
    path [any-string!]
][
    if all [
        path: find/last path #"." 
        not find path #"/"
    ] [to-file path]
]