I really like your function Thomas. Very good!

Brett.

----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, July 24, 2000 1:03 PM
Subject: [REBOL] context exploration


Hello,

While playing with contexts, I threw together this little function to show
the words that are defined in a context (and their values in that context).
(something like that have been discussed before AFAIR, but a 1min. search
didn't find it, sooo :-)

It goes like this:

show-context: func [word [word!]] [
    foreach x-word next first system/words [
        if value? bind x-word :word [
            print [:x-word "|" get bind x-word :word]
        ]
    ]
]

Attached is a script that demonstrates the use of the function with contexts
created with func, use and make object!

Best regards
Thomas Jensen


Reply via email to