[REBOL] Re: Rebol/Gotcha Handling previously defined words

From: nitsch-lists:netcologne at: 10-Dec-2003 21:36

Am Mittwoch 10 Dezember 2003 20:30 schrieb Tim Johnson:

Quickly fixing myself:
(forgot return-value, added object to checklist)

my.context: func [[catch] block /local ctx] [
    ctx: context block
    foreach word first ctx [
        if all [
            value? w: in system/words word
            any [
		; add your checks here
                any-function? get w
                object? get w
            ]
        ] [
            throw make error! join "You don't want to redefine this: " word
        ]
    ]
    ctx ; oops, never forget return value..
]

ctx: my.context [a: b: none]
? ctx
ctx2: my.context [a: reduce: none]

> TIA

-Volker

1 · 2 · 3 · 4 · [5] · 6 · 7 · See whole thread