Those were the words of [EMAIL PROTECTED]:
> Hi, Rebols,
>
> found this:
>
> >> block1: [do func[f [any-function!]] [print "OK"] func [x] [print "OK"]]
> == [do func [f [any-function!]] [print "OK"] func [x] [print "OK"]]
> >> block2: [do func [f [any-function!]] [print "OK"]]
> == [do func [f [any-function!]] [print "OK"]]
> >> append block2 :f
> == [do func [f [any-function!]] [print "OK"] func [x][print "OK"]]
> >> do block1
> OK
> >> do block2
> ** Script Error: none is missing its x argument.
> ** Where: do func [f [any-function!]] [print "OK"] func [x][print "OK"]
>
Hi Ladislav, could you please tell us what _your_ 'f is? because ...
>> rebol/version
== 2.2.0.4.2
>> block1: [do func[f [any-function!]] [print "OK"] func [x] [print "OK"]]
== [do func [f [any-function!]] [print "OK"] func [x] [print "OK"]]
>> do block1
OK
>> block2: [do func [f [any-function!]] [print "OK"]]
== [do func [f [any-function!]] [print "OK"]]
>> append block2 :f
** Script Error: f has no value.
** Where: append block2 :f
>> f: [func [x] [print "OK"]]
== [func [x] [print "OK"]]
>> append block2 :f
== [do func [f [any-function!]] [print "OK"] func [x] [print "OK"]]
>> do block2
OK
I don't know _why_ it works, though after we have heard multiple times,
that it can't ;-)
regards,
Ingo
-- _ . _
ingo@)|_ /| _| _ <We ARE all ONE www._|_o _ _ ._ _
www./_|_) |o(_|(/_ We ARE all FREE> ingo@| |(_|o(_)| (_|
http://www.2b1.de/Rebol/ ._| ._|