[REBOL] A function bug

[lmecir]

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"]

Take care

Ladislav