Rebol Programming/title-of

= USAGE: = TITLE-OF value

= DESCRIPTION: = Returns a copy of the title of a function.

TITLE-OF is a function value. = ARGUMENTS =
 * value -- (Type: any)

= SOURCE CODE = title-of: func [ "Returns a copy of the title of a function." value ][   case [ object? :value [cause-error 'script 'invalid-arg 'title] any-function? :value [if string? value: pick third :value 1 [copy value]] 'else [cause-error 'script 'cannot-use reduce ['reflect type? :value]] ] ]