Posted to tcl by miguel at Wed Aug 06 18:11:20 GMT 2008view raw

  1. proc a {} {
  2. set body {}
  3. for {set i 0} {$i <100} {incr i} {
  4. append body "set foo$i 1;"
  5. }
  6. proc a {} $body
  7. a
  8. set x
  9. }
  10. a