Rebol Programming/default

USAGE:

DEFAULT 'word value 

DESCRIPTION:

Set a word to a default value if it hasn't been set yet.

DEFAULT is a function value.

ARGUMENTS

• word -- The word (use :var for word! values) (Type: word set-word lit-word)
• value -- The value (Type: any)

SOURCE CODE

default: func [
    {Set a word to a default value if it hasn't been set yet.} 
    'word [word! set-word! lit-word!] "The word (use :var for word! values)" 
    value "The value"
][
    unless all [value? word not none? get word] [set word :value] :value
]