Making words set by 'set' local - sample

func-set-local.red

func-set-local: func [spec body] [
	locals: copy []
	parse body [
          to any ['set set w lit-word! (probe w) (append locals w)] 
 	  to end
        ]
          
	func append spec compose [/local (locals)] body
]
f: func-set-local [a b] [set 'c (a + b) c]
f 1 2
c ; error - no global word - good

f-without-local: function [aa bb] [set 'cc (aa + bb) cc]
f-without-local 11 22
cc ; 33 ; global word set