<div dir="ltr">Hi,<div><br></div><div>I would like to be able to transform x:foo to (tag foo x)</div><div><br></div><div>if I define a macro-character for : how can I access the symbol </div><div>read just before :</div><div><br></div><div>Example of usage:</div><div><br></div><div>(fn (x:foo) (+ x 1)) => (fn ((tag foo x)) (+ x 1))</div><div>((fn (x:list) (car x)) body:list) => ((fn ((tag list x)) (car x)) (tag list body))</div><div><br></div><div>Thanks for your help</div><div><br></div><div>Taoufik</div></div>