forked from rebol/rebol
-
Notifications
You must be signed in to change notification settings - Fork 2
Default
angerangel edited this page Mar 15, 2013
·
1 revision
DEFAULT 'word value
Set a word to a default value if it hasn't been set yet.
DEFAULT is a function value.
- word -- The word (use :var for word! values) (word! set-word! lit-word!)
- value -- The value
#SOURCE
default: make function! [ [
{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
] ]