Refining functions.

I've finally got paths working on functions. So you can call a refined function fairly easily. Other may know this, but it was new on me. In the following example f1 will called a refined version of f2. The nice thing is how it just calls existing functions. Also, it leaves the argument passing to the caller. to-refined-function: function [ "Refines a function with the specified refinements." 'f refinements [any-block!] ] [p] [ p: to-path head insert/only head copy refinements f :p ] f1: function [ x y ] [a-func refines] [ refines: [r2 r3] a-func: to-refined-function f2 refines a-func x y ] f2: func [ x /r1 /r2 y /r3 ] [ print ["Function f2 was called with parameter" mold x] if r1 [ print "Refinement r1 was called." ] if r2 [ print ["Refinement r2 was called with parameter" mold y] ] if r3 [ print "Refinement r3 was called." ] ] Now the test.

>> f1 "test" "2nd-param"

>> my-rebol-stuff