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

REBOL [
    purpose: {Shows when sub-blocks are bound to new object context.}
]

b: [a: 2 b: 3]
obj: make object! [ do b ]
obj2: make object! [do [a:2 b:3]]
probe obj
probe obj2
probe a
probe b


; Inline blocks are bound.
obj: context [ a: [b] b: 77 c: [b] ]
print do obj/a/1
print do obj/c/1


; Referenced blocks are not bound.
j: [z]
obj: context [ a: j z: 33 c: j ]
print error? try [do obj/a/1]