Hi Michael,
just one warning. The code is not very universal, it may not work
correctly, if the word 'path-list or 'r-word are between the
refinements. (BTW, have you looked at my Refine function? - it has
got its limitations too - it is not suitable for the functions
with unevaluated arguments)
Regards
Ladislav
> That works! And yes, was close to what I was doing (but better).
>
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Saturday, May 27, 2000 2:25 AM
> To: [EMAIL PROTECTED]
> Subject: [REBOL] refinements Re:(7)
>
>
> Hi, is this close to what you wanted to have?
>
> f1: function [/va /vb /vc][path-list r-word][
> path-list: to path! 'f2
> foreach r first :f1 [
> if all [
> refinement? r
> r <> /local
> get r-word: bind to word! r 'r-word
> ] [
> insert tail :path-list r-word
> ]
> ]
> print ["Calling path:" mold :path-list]
> ]
>
> Regards
> Ladislav
>
