Evaluated proc condense_proc name { set p [info body $name]; regsub {^; +} [regsub -all { +} [regsub -all \n$ [regsub -all "\{\n" $p "\{ "] {; }] { }] {} }