411 REFERENCE · Wikibooks
Rebol Programming/protect-system
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
PROTECT-SYSTEM
DESCRIPTION:
Protects all system functions and the system object from redefinition.
PROTECT-SYSTEM is a function value.
SOURCE CODE
protect-system: func [
{Protects all system functions and the system object from redefinition.}
/local vals words word
][
vals: second system/words
words: make block! 1
foreach word first system/words [
if any-function? first vals [append words word]
vals: next vals
]
foreach word bind words 'read [protect word]
protect 'system
]