root/trunk/orca/tests/working/context.r

REBOL [
    Purpose: {Shows how object cloning copies & binds blocks.}
]

blk: [v: 1 p: does [print v] b: [v]]
a: context blk
b: make a [v: 2]

a/p
b/p

print same? a/b b/b
print same? a/b blk/7

print do a/b/1
print do b/b/1
print do blk/7/1


; Shows lit-words are bound to context.
c: context [
    a: none
    f: func [val] [set 'a val]
]
c/f 5
print c/a