Rebol Programming/protect-system

= 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 ]