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

REBOL [
    purpose: {Shows 3 things:
        1. REBOL copies each argument value onto the data stack - it does not
            just keep a refrence to the value in the block (C pointer).
            If it only pushed a reference then 'probe a' should print '2'.
        2. probe returns the value probed.
        3. set-path! returns the series value referenced.
    }
]

myfunc: func [a b c] [
    probe a
    probe b
    probe c
]
x: [myfunc 1 reduce [probe x x/2: 2] 3]
;x: [myfunc 1 reduce [x/2: 2 x/5: 4] 3]
do x

[myfunc 1 reduce [probe x x/2: 2] 3]
; 1
[[myfunc 2 reduce [probe x x/2: 2] 3] [myfunc 2 reduce [probe x x/2: 2] 3]]
; 3