; an example examining function body rebinding

a: 1
f: func [] [a]
g: :f
o1: make object! [a: 2 g: :f]
o2: make o1 [a: 3 g: :f]
o3: make o1 [a: 4]
g ; == 1 expected, works this way both in R2 and in R3
o1/g ; == 1 expected, works this way both in R2 and in R3
o2/g ; == 1 expected, works this way both in R2 and in R3
o3/g ; == 4 in R3, which is unexpected, in R2 the expression yields 1

; a similar example, this time examining block rebinding

a: 1
b: [a]
c: b
o1: make object! [a: 2 c: b]
o2: make o1 [a: 3 c: b]
o3: make o1 [a: 4]
do c ; == 1 (both in R2 and in R3)
do o1/c ; == 1 (both in R2 and in R3)
do o2/c ; == 1 (both in R2 and in R3)
do o3/c ; == 4 (in R3, which is not what I expected) and == 1 in R2