Correcting myself. Still not bug-free. The code should be:
append spec either function? :f [
reduce ['func load mold third :f copy/deep second :f]
] [
reduce ['first reduce [:f]]
]
> > --- Start --
> > >> a: 0 f: func [] [a]
> > >> o1: make object! [a: 1 g: func [] [a]] o1/g
> > == 1
> > >> o2: make object! append [a: 2 g:] [:f] o2/g
> > == 0
> > >> o3: make object! append [a: 3 g:] compose/deep [first
[(:f)]]
> o3/g
> > == 0
> > >> o4: make object! append [a: 4 g:] reduce ['first reduce
[:f]]
> o4/g
> > == 0
> > >> o5: make object! append [a: 5 g:] reduce ['func first :f
> second :f] o5/g
> > == 5
> > >> print [o1/g o2/g o3/g o4/g o5/g a]
> > 1 5 5 5 5 0
> > --- End ---
> >
> > Christian
> > [EMAIL PROTECTED]
> >
>
> Tchuss
> Ladislav
