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