Hi,
> I think this is quite amusing.
> I am using contexts, combined with the use of compose first
> mentioned by Ladislav.
>
> Of course it is an awful perversion, but it can't be helped:
>
> >> make-adder: func [
> x
> /reset
> ][
> if reset [exit]
> func [y] compose [
> make-adder/reset (x)
> add x y
> ]
> ]
>
> >> add6: make-adder 6
> >> add6 1
> == 7
>
> >> add5: make-adder 5
> >> add5 1
> == 6
>
> >> add6 1
> == 7
>
> >> source add6
> add6: func [y] [
> make-adder/reset 6
> add x y
> ]
>
> So, it actually works!
> Can you go to jail for this?
> Free variables want to be free!
>
> -galt
>
>
You could spare /reset refinement:
> >> make-adder: func [x] [
> func [y] compose [
> make-adder (x)
> add x y
> ]
> ]
Freedom and peace to your variables. ROTFL
Ladislav
