Rebol 程式設計/protect-system

用法

PROTECT-SYSTEM 

描述

保護所有系統函式和系統物件免於重新定義。

PROTECT-SYSTEM 是一個函式值。

原始碼

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
]