Rebol Programming/throw-error

USAGE:

THROW-ERROR err-type err-id args 

DESCRIPTION:

Causes an immediate error throw with the provided information.

THROW-ERROR is a function value.

ARGUMENTS

• err-type -- (Type: word)
• err-id -- (Type: word)
• args -- (Type: any)

SOURCE CODE

throw-error: func [
    {Causes an immediate error throw with the provided information.} 
    err-type [word!] 
    err-id [word!] 
    args
][
    parse args: compose [(:args)] [0 3 [args: any-function! (
                change/only args copy/deep third first args
            ) | skip]] 
    args: head args 
    throw make error! reduce [err-type err-id pick args 1 pick args 2 pick args 3]
]